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Introduction 


You  may  as  well  lock  the  garage,  and  throw  away  your  season  train  pass.  You 
won't  be  going  out  much  at  night  over  the  next  few  months.  You'ii  find  there  is 
too  much  to  do  exploring  these  games  and  demonstration  programs  on  your 
BBC  Microcomputer. 

Tim  Hartnell,  S.M.  Gee  and  Mike  James  have  brought  together  a  varied 
coiiection  of  games  to  suit  every  taste,  from  massive  ADVENTURE  programs, 
through  board  games  iike  CHECKERS  and  SURROUND  to  'arcade  action' 
programs  like  DODGEM  and  LE  MANS. 

As  weii,  this  generous  coiiection  inciudes  the  stock  market  simuiation  WALL 
STREET,  a  program  which  uses  BiORHYTHMS  to  warn  you  of  bad  days 
ahead,  another  which  challenges  you  to  a  few  hands  of  PONTOON  and 
another  which  places  you  in  a  graphically-depicted  3-D  MAZE.  Program 
authors  include  Dave  Kelsall,  Ian  Watt  and  Alastair  Gourlay. 

No  matter  which  type  of  game  you  enjoy  playing  most,  you'll  find  several  to 
entertain  you  within  these  pages. 

Jeremy  Ruston 
January,  1 983 

(Jeremy  Ruston  is  author  of  The  BBC  Micro  Revealed',  'Pascal  for  Human 
Beings' ,  'The  Ruston  BASIC  Compiler  (Instant  BBC  Micro  Machine  Code)'  and 
co-author  (with  Tim  Hartnell)  of  The  Book  of  Listings'.) 
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THE  CRYPT  OF  GABON 

In  this  ADVENTURE  program,  written  by  Ian  Watt,  you  start  outside  the  crypt. 

A  stolen  diamond  must  be  replaced  in  its  correct  position  within  the  crypt, 
before  you  make  good  your  escape.  The  crypt,  neediess  to  say,  is  guarded  by 
a  monster  which  wiii  destroy  the  world  if  the  diamond  is  not  replaced.  The 
ambition  of  monster's  know  no  bounds.  You  have  a  limited  time  before  you  will 
be  killed  by  the  monster,  which  was  designed  by  Gabon,  who  is  buried  in  the 
crypt. 

You  have  to  direct  the  computer  to  manipuiate  the  objects  you  come  across, 
and  to  move  around.  As  with  all  good  ADVENTURE  programs,  much  of  the 
pleasure  in  piaying  comes  from  discovering  the  vocabulary  the  computer  will 
understand,  so  we  will  not  give  too  much  away  in  the  introduction.  The 
computer  has,  however,  an  extensive  vocabuiary,  so  if  one  command  doesn't 
work,  try  another. 

The  program  has  been  written  so  that  oniy  the  first  three  letters  of  each 
command  and  object  need  to  be  typed  in,  aithough  the  computer  wiii  aiso 
accept  the  fuii  word.  For  example,  if  you  wished  to  say  GET  DIAMOND,  the 
BBC  Micro  wiii  accept  GET  DIA  or  GET  DiAMOND.  Other  examples:  DROP 
REVOLVER  -  DRO  REV;  THROW  ROPE  -  THR  ROP. 

Good  luck  in  your  quest. 


Path  through  broken  bones 

Evident  exits:-  :North::South::East: 

Objects:-  : SHARP  BONES : 

Inventory:-  rDIAMOHD: 


CoiYimand?  E 


Wall  engravings 
Evident  exits:-  : E a s t  :  : W e s t  : 
Obj  ects :  -  : WRITING: 

Inventory:-  :DIAMOHD: 


Command? 
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10  x=o 

20  DIM  E(16) 

30  CLS : PRINT ' 'CHR$( 129) "Do  you  want  t 
he  instructions (Y  or  N)  : Z$=GET$ : IF  Z 
$="N"  THEN  200  ELSE  IF  Z$="Y"  THEN  40  EL 
SE  30 

40  CLS:VDU  31 , 0 , 12 : PRINTCHR$ ( 130 ) "  If 
the  caps  lock  is  not  on  then  put  if'CHR 
$(130) "on. " 

50  TIME=0: REPEAT  UNTIL  TIME=350 
60  CLS:PRINT' 'CHR$(131) "You  are  outsi 
de  a  crypt  inside  which  a  "CHR$ ( 131) "sto 
len  diamond  must  be  replaced  in  its  "CHR 
$( 131 ) "correct  place, and  then  escape." 

70  TIME=0 : REPEAT  UNTIL  TIME=600 
80  PRINT' ' 'CHR$( 133) "The  crypt  is  gua 
rded  by  a  monster  which"CHR$ ( 133 ) "will  d 
estroy  the  world  if  the  diamond  "CHR$(1 

33)  "is  not  replaced." 

90  TIME=0 : REPEAT  UNTIL  TIME=600 
100  PRINT' ' 'CHR$( 134) "  You  have  a  limi 
ted  time  before  you  are  "CHR$ ( 134 ) "kille 
d  by  a  monster , which  was  designed"CHR$ ( 1 

34)  "by  Gabon  who  is  buried  in  the  crypt. 

II 


110  TIME=0 : REPEAT  UNTIL  TIME=650 
120  CLS:PRINT' 'CHR$(131) "You  have  to  d 
irect  the  computer  to  "CHR$ ( 131 ) "man 

ipulate  the  objects  you  may  come  "CHR 
$ ( 131 ) "across . " 

130  TIME=0 : REPEAT  UNTIL  TIME=600 
140  PRINT' ' 'CHR$( 133) "  The  computer  ha 
s  a  fairly  large  number "CHR$ ( 133 ) "of  com 
mands,so  therefore  if  one  command " CHR$ ( 1 

33)  "does  not  work  then  try  another." 

150  TIME=0 : REPEAT  UNTIL  TIME=550 

160  PRINT' ' 'CHR$( 134) "The  program  is  s 
o  designed  that  only  "CHR$ ( 134 ) "the  fi 
rst  three  letters  of  each  command " CHR$ ( 1 

34)  "and  object  need  be  typed  in, although 

, if "CHR$ ( 134 ) "it  is  desired, the  full  wor 
d  may  be  "CHR$ ( 134 ) "entered : " 
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170  TIME=0 : REPEAT  UNTIL  TIME=700 
180  PRINT 'CHR$( 130 ) "E.G.  GET  DIAMOND, G 
ET  DIA,DROP  REVOLVER, "CHR$( 130) "  DRO 

REV, THROW  ROPE,THR  ROP,ETC." 

190  TIME=0 : REPEAT  UNTIL  TIME=600 
200  RESTORE  1450: FOR  Z=1  TO  16: READ  z: 
E(Z)=z:NEXTZ 

210  CLS:A=1:L=0:Q=0:W=0 
220  RESTORE 

230  W=W+1:IF  W>20  AND  W<40  THEN  PRINTC 
HR$(129)"The  monster  is  stirring. " :ENVEL 
OPEl, 1, 1, 255, 255,20,20,20, 0, 0, 0, 0, 60, 0:S 
OUNDl, 1, 20, 1 

240  IF  W>39  AND  W<60  THEN  PRINTCHR$(12 
9) "The  monster  has  noticed  you ENVELOP 
El, 1, 1, 255, 255, 17, 17, 17, 0, 0, 0, 0, 75, 0: SOU 
NDl, 1, 70, 1 

250  IF  W>59  AND  W<80  THEN  PRINTCHR$(12 
9) "It  is  coming  nearer .": ENVELOPEl , 1 , 1 , 2 
55,255, 14, 14, 14, 0, 0, 0, 0, 90, 0 :SOUNDl, 1, 12 
0,1 

260  IF  W>79  AND  W<100  THEN  PRINTCHR$ ( 1 
29) "It  is  very  near .": ENVELOPEl , 1 , 1 , 255 , 
255, 11, 11, 11, 0, 0, 0, 0, 105, 0 :SOUNDl, 1, 170, 
1 

270  IF  W>99  THEN  PRINTCHR$ ( 129 ) "It  is 
almost  on  top  of  you. ": ENVELOPE 1, 1, 1, 255 
,255, 8, 8, 8, 0, 0, 0, 0, 126, 0:SOUND1, 1,220, 1 
280  IF  A=17  OR  A>1  AND  E(1)<>0  AND  E(1 
)<>21  AND  E(  1)022  OR  W=120  THEN  PRINTCH 
R$ ( 129 ) "Gabon ' s  monster  has  destroyed  yo 
u.":GOTO  790 

290  IF  A=16  AND  E(l)=21  OR  A=20  AND  E( 
12) =18  THEN  PRINTCHR$(129) "An  idol  has  u 
sed  all  its  powers  to  "CHR$ ( 129 ) "des 

troy  you.": GOTO  790 

300  IF  E(l)=22  AND  A=6  AND  E(13)<>21  T 
HEN  PRINTCHR$ (129) "You  have  drowned  in  a 
keg  of  some  sort  "CHR$ ( 129 ) "of  alcohol. 
":GOTO  790 

310  IF  E(7)<>0  AND  E(6)=-l  THEN  E(6)=0 
320  FOR  B=1  TO  A: READ  A$ : NEXT  B 
330  VDU  31,0,2:PRINTCHR$(130)A$ 

340  PRINT 'CHR$( 133) "Evident  exits:-  " ; 
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:RESTORE  620:FOR  C=1  TO  A:READ  D:NEXT  C: 
IF  DOO  THEN  PRINT"  :North:  "  ; 

350  RESTORE  630: FOR  C=1  TO  A: READ  D:NE 
XT  C:IF  DOO  THEN  PRINT"  :  South ; 

360  RESTORE  640: FOR  C=1  TO  A: READ  D:NE 
XT  C:IF  DOO  THEN  PRINT"  :  East :"  ; 

370  RESTORE  650: FOR  C=1  TO  A: READ  D:NE 
XT  C:IF  DOO  THEN  PRINT"  :  West ; 

380  PRINT' 'CHR$( 134) "Objects: -  "; 

390  H=0: RESTORE  660 

400  FOR  G=1  TO  16:READ  C$ :  IF  E(G)OA  0 
R  H=4  THEN  NEXT  G  ELSE  PRINT" :"; C$ : 
H=H+1:IF  H02  THEN  NEXT  G  ELSE  PRINT 'CHR 
$(134) "  :NEXT  G 

410  PRINT' 'CHR$( 131) "Inventory: -  "; 

420  F=0: RESTORE  660 

430  FOR  G=1  TO  16:READ  C$ :  IF  E(G)O0  A 
ND  E(G)0-1  OR  F  =  4  THEN  NEXT  G  ELSE  PRIN 
T"  :  ";C$;  "  :  :F=F  +  1:IF  F02  THEN  NEXT  G  E 

LSE  PRINT 'CHR$( 131) "  ";:NEXT 

440  VDU  31,0,12:PRINTCHR$(130)"[ . 

. ]  " 

450  VDU  31,0,16:PRINTCHR$(130)"[ . 

. ] " :VDU  31 

,0,14 

460  PRINTCHR$(134) ;  :INPUT"Coinmand?  "B$ 
470  CLS:VDU  31,0,18 

480  IF  A=10  AND  LEFT$ ( B$ , 1 ) = " S "  AND  L= 
0  THEN  PRINTCHR$(129) "You  cannot  pass  th 
e  snake  statue ." :GOTO  220 

490  IF  LEFT$ (B$, 3) ="WEA"  OR  LEFT$(B$,3 
)="WAS"  OR  LEFT$ (B$, 3) ="SHO"  THEN  690 
500  IF  A=8  AND  LEFT$ ( B$ , 3 ) = "W"  THEN  PR 
INTCHR$ ( 129 ) " You  cannot  pass  the  flames. 
":GOTO  220 

510  IF  LEFT$(B$,1)<>"N"  THEN  520  ELSE 
RESTORE  620:FOR  C=1  TO  A:READ  D : NEXT  C:I 
F  D=0  THEN  570  ELSE  560 

520  IF  LEFT$(B$,1)<>"S"  THEN  530  ELSE 
RESTORE  630: FOR  C=1  TO  A: READ  D : NEXT  C:I 
F  D=0  THEN  570  ELSE  560 

530  IF  LEFT$(B$,1)<>"E"  THEN  540  ELSE 
RESTORE  640:FOR  C=1  TO  A:READ  D : NEXT  C:I 
F  D=0  THEN  570  ELSE  560 
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540  IF  LEFT$(B$,1)<>"W"  THEN  550  ELSE 
RESTORE  650: FOR  C=1  TO  A: READ  D : NEXT  C:I 
F  D=0  THEN  570  ELSE  560 
550  GOTO  690 

560  IF  A=12  AND  QOl  THEN  PRINTCHR$(12 
9) "You  have  fallen  through  a  hole  into  t 
he"CHR$ (129) "chasm. GOTO  220  ELSE  A=A+D 
:Q=0:GOTO  220 

570  PRINTCHR$(129) "No  exit!":GOTO  220 
580  DATA  Outside  of  crypt, Path  through 
broken  bones, Freshly  dug  graves, Wall  en 
gravings, Mummy's  haunt 

590  DATA  Vat, Torture  area, Pit  ablaze  w 
ith  burning  fuel, High  ceilinged  passagew 
ay, Area  with  life-size  snake  statue 
600  DATA  Disused  well, Bridge  across  a 
chasm, Outside  of  burial  place, Scattered 
sarcophegi,Damp  cavern 

610  DATA  Golden  corridor , Gabon ' s  monst 
er's  lair, Area  with  idols, Gabon ' s  chambe 
r, Jewellery  chamber 

620  DATA  0,-1, -1,0, -2, 0,0, -3, 0,-4, 0,-5 
, -3, -5, -3, 0, -2, 1, 0, 0 

630  DATA  1,1, 2, 0,3, 4, 5, 0,5, 3, 0,3, 0,0, 2 

,0,0,0, -1,0 

640  DATA  0,2, 0,3, 4, -3, 0,0, 0,0, -5, 0,-5, 
3,0,0,0,-2,0,-2 

650  DATA  0,0, 3, -2, 0,5, -3, 5, -4, 0,0, 0,3, 
0,0,2, -3, 2, 0,0 

660  DATA  DIAMOND, SHARP  BONES , WRITING, B 
ANDAGES , SNAKE  STATUE, LARGE  MAGNET , STRING 
,KEY 

670  DATA  ROPE, SARCOPHAGUS, BOMB, IDOL, WA 
TER , REVOLVER , CROWN , DOOR 

680  DATA  GET,DRO,WEA,REA,TIE,LOW,CUT,T 
HR , CLI , DRI , OPE , WAS , INS , SHO 

690  M=0:N=0:0=0:IF  LEFT$ ( B$ , 3 ) = "QUI "  T 
HEN  790 

700  RESTORE  680: FOR  1=1  TO  14: READ  C$ : 
IF  LEFT$(B$,3)=C$  THEN  M=I 
710  NEXT  I:  IF  MOO  THEN  730 
720  PRINTCHR$(129) "I  do  not  understand 
you.": GOTO  220 

730  RESTORE  660 :D$=RIGHT$ ( B$ , 3 ) : FOR  J= 
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1  TO  16: READ  C$ : C$=LEFT$ ( C$ , 3 ) 

740  FOR  K=4  TO  15:IF  LEFT$ ( D$ , 1 ) <> "  " 
AND  C$=MID$(D$,2,4)  THEN  N=1 

750  IF  C$=MID$(D$,2,3)  THEN  0=J  ELSE  D 
$=RIGHT$ (B$,K) 

760  NEXT  K:NEXT  J:IF  OOO  THEN  770  ELS 
E  PRINTCHR$ (129) "Pardon?" : GOTO  220 

770  IF  N=1  THEN  PRINTCHR$ ( 129 ) "Learn  t 
o  typG . " 

780  ON  M  GOTO  830,880,920,960,990,1030 
,1090,1120,1170,1210,1240,1290,1330,1380 
790  ENVELOPEl ,3, 0,0, 0,0, 0,0, 0,0,0, -1,1 
26,50: SOUNDl ,0,1,1: SOUNDO ,1,4,20 

800  VDU  31,0,23:PRINTCHR$(131) "PRESS  S 
PACE  TO  START  AGAIN.": IF  INKEY$(50)="  " 
THEN  30  ELSE  VDU  31 , 0 , 23 :PRINT" 

":IF  INKEY$(50)="  " 

THEN  30  ELSE  800 

810  PRINTCHR$(129) "I  cannot  do  that.": 
GOTO  220 

820  PRINTCHR$ ( 129 ) "O.K. ": GOTO  220 
830  IF  0=3  OR  0=5  OR  0=2  AND  E(4)<>-1 
OR  0=10  OR  0=12  OR  0=16  THEN  810 

840  IF  F=4  THEN  PRINTCHR$ ( 129 ) "I  am  ca 
rrying  too  much.":GOTO  220 
850  IF  E(0)=A  THEN  870 

860  PRINTCHR$(129) "I  do  not  see  it  her 
e. " :GOTO  220 

870  E(O)=0:GOTO  820 

880  IF  E(O)<>0  AND  E(0)<>-1  THEN  PRINT 
CHR$(129)"I  am  not  carrying  it.": GOTO  22 
0 

890  IF  H=4  THEN  PRINTCHR$ ( 129 ) "I  do  no 
t  see  a  place  to  put  it.":GOTO  220 

900  IF  A=20  AND  0=15  AND  E(l)=21  THEN 
(1)=22:E(11)=13 

910  E(0)=A:GOTO  820 
920  IF  004  THEN  810 

930  IF  E(0)=-1  THEN  PRINTCHR$ ( 129 ) "I  a 
m  already  wearing  them.":GOTO  220 

940  IF  E(O)<>0  THEN  PRINTCHR$ ( 129 ) "I  d 
o  not  have  them.": GOTO  220 
950  E(0)=-l:GOTO  820 
960  IF  003  THEN  810 
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970  IF  A<>4  THEN  860 

980  PRINTCHR$(129) "  It  says  that  a  key 
is  hidden  somewhere "CHR$ ( 129 )" in  the  cr 
ypt  and  could  be  useful :GOTO  220 
990  IF  006  THEN  810 
1000  IF  E(7)<>0  THEN  PRINTCHR$ ( 129 ) "I  h 
ave  no  string. " :G0T0  220 
1010  IF  E(6)<>0  THEN  PRINTCHR$ ( 129 ) "I  h 
ave  no  magnet :GOTO  220 
1020  E(6)=-l:GOTO  820 
1030  IF  006  THEN  810 

1040  IF  E(6)0-l  AND  E(6)O0  THEN  PRINT 
CHR$(129)"I  have  no  magnet GOTO  220 
1050  IF  AOll  THEN  PRINT"!  see  no  place 
to  lower  it  to.":G0T0  220 
1060  IF  E(6)=0  THEN  PRINTCHR$ ( 129 ) "I  ha 
ve  nothing  to  lower  it  with.": GOTO  220 
1070  IF  E(8)021  OR  H=4  THEN  PRINTCHR$  ( 
129) "Nothing  happens .": GOTO  220 
1080  PRINTCHR$(129) "See  what  has  been  b 
rought  up . " : E ( 8 ) =11 : GOTO  220 
1090  IF  005  THEN  810 

1100  IF  E(2)<>0  THEN  PRINTCHR$ ( 129 ) " I  h 
ave  nothing  to  cut  with.":G0T0  220 
1110  L=1:G0T0  820 
1120  IF  009  AND  OOll  THEN  810 
1130  IF  E(0)O0  THEN  PRINTCHR$  ( 129 )  "I  d 
o  not  have  it  to  throw.": GOTO  220 
1140  IF  A012  AND  0=9  OR  AOl  AND  0=11 
THEN  PRINTCHR$(129) "I  see  no  place  to  th 
row  it  to.": GOTO  220 
1150  IF  0=11  THEN  1420 

1160  PRINTCHR$(129) "It  has  caught  onto 
something. " :E(0)=12:Q=2:G0T0  220 
1170  IF  009  OR  A012  THEN  810 
1180  IF  E(O)=0  OR  Q02  THEN  PRINTCHR$  ( 1 
29) "It  is  not  attached  to  anything. ": GOT 
0  220 

1190  IF  E(0)<>12  OR  Q02  THEN  PRINTCHR$ 
(129) "I  see  no  rope  to  climb.": GOTO  220 
1200  Q=1:G0T0  820 
1210  IF  0013  THEN  810 

1220  IF  E(0)O0  THEN  PRINTCHR$  ( 129 )  "I  a 
m  not  carrying  it.":G0T0  220 
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1230  PRINTCHR$(129) "YUK,it  tastes  terri 
ble!'':E(0)=21:G0T0  220 
1240  IF  OOlO  AND  0016  THEN  810 
1250  IF  A014  AND  AO  16  THEN  PRINTCHR$  ( 
129) "I  do  not  see  it  here.": GOTO  220 
1260  IF  0=16  AND  E(8)O0  THEN  PRINTCHR$ 
(129) "I  have  nothing  to  open  it  with.":G 
OTO  220 

1270  IF  0=16  THEN  A=13:G0T0  820 
1280  E(14)=14:GOTO  820 
1290  IF  0015  THEN  810 

1300  IF  E(13)O0  THEN  PRINTCHR$  ( 129 )  "I 
do  not  have  any  water.": GOTO  220 
1310  IF  E(0)O0  THEN  PRINTCHR$  ( 129 )  "I  d 
o  not  have  it  to  wash.":G0T0  220 
1320  E(0)=-1:G0T0  820 
1330  IF  OOl  THEN  810 

1340  IF  E(0)O0  THEN  PRINT  CHR$(129)"I 
do  not  have  it  to  insert .": GOTO  220 
1350  IF  E(15)O0  AND  E(15)0-l  THEN  PRI 
NTCHR$ ( 129 ) "I  see  no  place  to  insert  it. 
":G0T0  220 

1360  IF  E(15)=0  THEN  PRINTCHR$ ( 129 ) "The 
crown  is  too  dirty.": GOTO  220 
1370  E(l)=2:GOTO  820 
1380  IF  0012  THEN  810 

1390  IF  E(14)<>0  THEN  PRINTCHR$ ( 129 ) " I 
have  nothing  to  shoot  with.": GOTO  220 
1400  IF  A018  THEN  PRINTCHR$  ( 129 )  "I  see 
nothing  to  shoot.": GOTO  220 
1410  E(12)=21:PRINTCHR$(129) "You  have  s 
tunned  the  idol.": GOTO  220 
1420  PRINTCHR$(129) "You  have  sealed  up 
the  crypt, saving  the "CHR$ ( 129 ) "world  fro 
m  the  terror  of  the  monster." 

1430  Y=120-W:IF  Y>X  THEN  X=Y 

1440  PRINT ' CHR$ ( 134 ) "Score=";Y;"  Best 

Score=" ;X:GOTO  790 

1450  DATAl, 2, 4, 5, 10, 7, 3, 21, 9, 14, 21, 18,1 
5,21,19,16 
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CHECKERS 


You  and  the  Beeb  face  off  over  the  familiar  eight  by  eight  checkered  board  in 
this  version  of  CHECKERS.  You  move  by  entering  the  letter  and  number  of  the 
square  you  want  to  move  from  (such  as  C6)  then  press  RETURN,  followed  by 
the  number  and  letter  of  the  square  you're  moving  to  (such  as  E4),  followed  by 
RETURN. 

You'll  be  asked  if  you  can  make  another  jump  after  capturing  one  of  the  Beeb's 
pieces.  If  you  can,  enter  T  then  press  ENTER  and  you'll  be  offered  another 
move. 

Note  that  the  board  is  held  In  array  A.  The  string  function  FNC  translates  the 
board  co-ordinates  to  array  co-ordinates.  The  pieces  are  held  In  the  array  as  1 
for  white,  -1  for  black.  Function  FNP  converts  these  codes  to  characters. 

5  REM  Checkers 
10  MODE  4 
20  GOSUB  1550 
30  GOTO  1270 
40 

50  PRINT  TAB(0,0); 

60  PRINT  TAB(10, 5) ; "BBC  CHECKERS" 

70  PRINT  TAB(11, 10) ; "ABCDEFGH" 

80  PROCBOARD 

90  PRINT  "YOUR  SCORE  ";SM, "  MACHINE'S 
SCORE  ";SI;" 

100  IF  U$="N"  THEN  610 

110  IF  SI=12  THEN  PRINT' ''"I  WIN":END 
120  IF  SM=12  THEN  PRINT' ''"YOU  WIN":EN 
D 

130 

140  IF  Q=Z  THEN  350 
150  PRINT "LAST  TO  ";F$; 

160  PRINT  "  FROM  (LET., NO.)"; 

170  INPUT  C$ 

180  PRINT  TAB(IO);"  TO 
190  INPUT  B$ 

200  F$=B$ 

210  C=FNC(C$) 

220  IF  1=0  THEN  GOTO  160 
230  B=FNC(B$) 
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240  IF  1=0  THEN  GOTO  160 
250  IF  ABS(C-B)=10  OR  ABS(C-B)=8  THEN 
SM=SM+1 

260  U$="  " 

270  IF  B-C=10  THEN  A(B-5)=0 
280  IF  B-C=8  THEN  A(B-4)=0 
290  IF  C-B=10  THEN  A(C-5)=0 
300  IF  C-B=8  THEN  A(C-4)=0 
310  A(B)=A(C) 

320  A(C)=0 
325  Q=Z 

330  IF  ABS(C-B)<>10  AND  ABS(C-B)<>8  TH 
EN  PRINTTAB (11,10); "ABCDEFGH" : PROCBOARD 
340  U$=" " :Q=0 
350  U$=" " :Q=0 

360  IF  ABS(C-B)=10  OR  ABS(C-B)=8  THEN 
PRINT : PRINT : PRINT : PRINT 

370  IF  ABS(C-B)=10  OR  ABS(C-B)=8  THEN 
INPUT  U$:IF  U$<>"N"  AND  U$<>"Y"  THEN  370 
380  IF  U$<>"Y"  THEN  610 
390  GOTO  50 
400  DEF  PROCBOARD 
410  M1=0:K=1 
420  J=0 

430  FOR  1=40  TO  6  STEP  -1 
440  IF  A(I)=1  AND  I>37  THEN  A(I)=2 
450  IF  A(I)=-1  AND  I<10  THEN  A(I)=-2 
460  IF  1=14  OR  1=32  OR  1=23  THEN  GOTO 
510 

470  IF  M1=0  THEN  PRINT  K; "  " ; : M1=0 : K=K 
+l:J=NOT  J:IF  J  THEN  PRINT  CHR$(224); 

480  PRINT  FNP(A(I) ) ; 

490  IF  Ml 0  3  OR  NOT  J  THEN  PRINT  CHR$  ( 
224); 

500  M1=M1+1:IF  Ml>3  THEN  M1=0:PRINT 

510  NEXT  I 

520  PRINT 

530  ENDPROC 

540  DEF  FNP(A) 

550  IF  A=0  THEN  C=32 
560  IF  A=1  THEN  C=225 
570  IF  A=-l  THEN  C=226 
580  IF  A=-2  THEN  C=ASC("+") 

590  IF  A=2  THEN  C=ASC("*") 
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600  =CHR$(C) 

610  U$="  ":Q=0 

620  Z=6 

630  IF  Z<9  THEN  670 

640  IF  A(Z)<0  AND  (A(Z-4)=1  OR  A(Z-4)= 
2)  AND  A(Z-8)=0  THEN  860 
650  IF  Z<11  THEN  670 

660  IF  A(Z)<0  AND  (A(Z-1)=1  OR  A(Z-5)= 
2)  AND  A(Z-10)=0  THEN  960 
670  IF  Z>25  THEN  700 

680  IF  A(Z)=-2  AND  (A(Z+4)=1  OR  A(Z+4) 
=2)  AND  A(Z+8)=0  THEN  1070 

690  IF  A(Z)=-2  AND  (A(Z+5)=1  OR  A(Z+5) 
=2)  AND  A(Z+10)=0  THEN  1180 

700  Z=Z+1:IF  Z<=40  THEN  GOTO  630 
710  REM  *  RANDOM  * 

720  U=0 

730  Z=6+RND(34) 

740  K=0 
750  U=U+1 

760  IF  A(Z)<0  AND  A(Z-4)=0  THEN  K=1 
770  IF  A(Z)<0  AND  A(Z-5)=0  AND  K=0  THE 
N  K=2 

780  IF  K=0  AND  Z<26  AND  A(Z)=-Z  AND  A( 
Z+4)=0  THEN  K=-7 

790  IF  Z<10  THEN  810 

800  IF  (K=l  OR  K=2)  AND  U<200  AND  (A(Z 
-10)=1  OR  A(Z-8)=1)  THEN  730 


810 

IF  K=0  AND  U<400 

THEN  730 

820 

IF  K=0  THEN  SM=12 

::GOTO  40 

830 

A(Z- (3+K) )=A(Z) 

840 

A(Z)=0 

850 

GOTO  40 

860 

A(Z-8)=A(Z) 

870 

A(Z)=0 

880 

A(Z-4)=0 

890 

SI=SI+1 

900 

IF  Z<24  THEN  40 

910 

IF  (A(Z-13)=1  OR 

A(Z-13)=2)  AND  A( 

18)  = 

=0  THN  P=2 

920  IF  P  =  1  THEN  A( Z - 18 ) =A( Z - 8 ) : A( Z - 13 ) 

=  0 

930  IF  P=2  THEN  A( Z - 12 ) =0 : A( Z - 12 ) =0 
940  IF  P>0  THEN  A(Z-8)=0 
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950  GOTO  40 
960  A(Z-10)=A(Z) 

970  A(Z)=0 
980  A(Z-5)=0 
990  SI=SI+1 
1000  IF  Z<25  THEN  40 

1010  IF(A(Z-15)=1  OR  A(Z-15)=2)  AND  A(Z 
-20)=0  THEN  P=1 

1020  IF  (A(Z-14)=1  OR  A(Z-14)=2)  AND  A( 
Z-18)=0  THEN  P=2 

1030  IF  P  =  1  THEN  A( Z - 15 ) =0 : A( Z - 20 ) =A( Z - 

10) 

1040  IF  P=2  THEN  A( Z - 14 ) =0 : A( Z - 18 ) =A( Z - 

10) 

1050  IFP>0  THEN  A(Z-10)=0 

1060  GOTO  40 

1070  A(Z+8)=-2 

1080  A(Z+4)=0 

1090  A(Z)=0 

1100  SI=SI+1 

1110  IF  Z<32  AND  (A(Z+3)=1  OR  A(Z+3)=2) 
AND  A(Z-2)=0  THEN  P=1 

1120  IF  Z<23  AND  (A(Z+14)=1  OR  A(Z+14)= 
2)  AND  A(Z+16)=0  THEN  P=2 
1130  IF  Z<23  AND  (A(Z+13)=1  OR  A(Z+13)= 
2)  AND  A(Z+18)=0  THEN  P=3 
1140  IF  P=1  THEN  A(Z+3)=0:A(Z-2)=-2 
1150  IF  P=2  THEN  A( Z+14 ) =0 : A( Z+16 ) =0 
1160  IF  P  =  3  THEN  A( Z  +  13 ) =0 : A ( Z  +  18 )  =  - 2 
1170  IF  P>0  THEN  A(Z+8)=0 
1180  A(Z+10)=-2 
1190  A(Z+5)=0 
1200  A(Z)=0 
1210  SI=SI+1 
1220  GOTO  40 
1230  PRINT: PRINT 
1240  PRINT: PRINT 
1250  RETURN 
1260  REM  *INITIALISE* 

1270  DIM  A(45) ,U$(2) ,C$(2) ,B$(2) ,D$(2) 
1280  CLS 

1290  FOR  Z=1  TO  45 

1300  IF  Z<6  THEN  A(Z)=9 

1310  IF  Z>5  AND  Z<19  THEN  A(Z)=1 
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1320  IF  Z>18  AND  Z<28  THEN  A(Z)=0 
1330  IF  Z>27  AND  Z<41  THEN  A(Z)=-1 
1340  IF  Z>40  THEN  A(Z)=9 
1350  NEXT  Z 

1360  A(14)=9:A(23)=9:A(32)=9 
1370  F$="--" 

1380  P=0:Q=0 
1390  SI=0:SM=0 
1400  PRINT: PRINT 

1410  PRINT' >11111111 "DO  YOU  WANT  THE  FI 
RST  MOVE  Y/N" :Q$=GET$:CLS 
1420  U$="" 

1440  IF  ASC(Q$) OASCf "Y" )  THEN  610 
1450  U$="" 

1460  CLS 
1470  GOTO  40 
1480  DEF  FNC(D$) 

1490  1=1 

1500  IF  M$(I)=D$  THEN  GOTO  1540 
1510  1=1+1 

1520  IF  1=33  THEN  I=0:GOTO  1540 
1530  GOTO  1500 
1540  =M(I) 

1550  DIM  M$(32),M(32) 

1560  DATA  B1,D1,F1,H1,A2,C2,E2,G2,B3,D3 
,F3,H3,A4,C4,E4,G4,B5,D5,F5,H5,A6,C6,E6 
1570  DATA  G6,B7,D7,F7,H7,A8,C8,E8,G8 
1580  DATA  40,39,38,37,36,35,34,33,31,30 
1590  DATA  29,28,27,26,25,24,22,21,20,20 
1600  DATA  18,17,16,15,13,12,11,10,9,8,7 
,6 

1610  FOR  1=1  TO  32 
1620  READ  M$(I) 

1630  NEXT  I 

1640  FOR  1=1  TO  32 

1650  READ  M(I) 

1660  NEXT  I 

1670  VDU  23,224,&CC,&33,&CC,&33,&CC,&33 
,&CC,&33 

1680  VDU  23,225,0,&3C,&3C,&7E,&7E,&3C,& 
3C,  0 

1690  VDU  23,226,0,&3C,&3C,&66,&66,&3C,& 
3C,0 

1700  RETURN 
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SQUASH 


Now  you  can  get  your  exercise,  without  even  working  up  a  sweat.  You'll  find 
this  program  runs  extremely  quickly,  so  it  presents  quite  a  challenge.  You 
move  the  bat  forwards  or  backwards,  using  the  arrowed  cursor  keys.  Rapid  key 
response  has  been  set  in  the  program,  so  don't  try  to  exit  from  the  game 
prematurely.  The  computer  will  serve  five  balls  to  make  up  a  game.  Your  score 
is  shown  at  the  bottom  left  of  the  court,  with  the  number  on  the  number  the 
balls  already  served,  and  the  number  on  the  right  the  number  of  hits  you've 
achieved. 

The  background  for  this  game  is  blue  (set  in  line  150)  and  this  is  reset  later  to 
black  (line  470).  The  noise  the  ball  makes  when  it  goes  out  of  play  is  defined  in 
fine  300. 

10  REM  SQUASH 
20  *FX  11,1 
30  *FX  12,1 
40  D=0 
50  G=0 
60  B=1 
70  C=14 
80  A=1 
90  *FX  4,1 
100  E=5:F=15 

110  VDU  23,224,&FF,&FF,&FF,&FF,&FF,&FF 
,&FF,&FF 

120  VDU  23,225,&00,&00,&00,&00,&FF,&FF 
,&FF,&FF 

130  VDU  23,226,&00,&18,&3C,&7E,&FF,&7E 
, &3C , &1 8 
140  MODE  4 

150  VDU  19,0,4,0,0,0 

160  FOR  Z=4  TO  20 

170  PRINT  TAB(Z, 4) ;CHR$ (224) 

180  NEXT  Z 

190  FOR  Z=1  TO  10 

200  PRINT  TAB(4) ;CHR$(224) ;TAB(20) ;CHR 
$(224) 

210  NEXT  Z 

220  PRINT  TAB(C,15);"  " 

230  V=INKEY(0) 

240  *FX  15,0 
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250  IF  V=&88  THEN  C=C-1 

260  IF  V=&89  THEN  C=C+1 

270  IF  C<4  OR  019  THEN  GOTO  310 

280  PRINT  TAB(C, 15) ;CHR$ (225) 

290  IF  E  =  15  AND  COF  THEN  GOTO  400 
300  IF  E=15  THEN  SOUND  0,-15,14,20 
310  PRINT  TAB(F,E);"  " 

320  FOR  Z=1  TO  50: NEXT  Z 
330  E=E+A 

340  IF  E=5  OR  E=15  THEN  A=-A 
350  F=F+B 

360  IF  F=5  OR  F=19  THEN  B=-B 
370  PRINT  TAB(F,E) ;CHR$ (226) 

380  IF  E=15  THEN  B=SGN(B* ( INT ( RND ( 1 ) +R 
ND(1) ) +1) ) :G=G+1 
390  GOTO  220 
400  D=D+1 

410  PRINT  TAB(1, 16) ;D;CHR$ (225) ;G-1 
420  FOR  Z=1  TO  3000:NEXT  Z 
430  CLS 

440  IF  D<5  THEN  GOTO  50 

450  *FX  4,0 

460  *FX  12,0 

470  VDU  20 

480  END 
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BREAKOUT 


Here's  a  fast  and  colourful  version  of  the  old  arcade  favourite.  You'ii  see  the 
foreground  colour  has  been  set  to  yellow  (line  80)  and  the  background  to  blue 
(line  90).  There  are  three  graphics  characters  defined  in  the  program.  The  solid 
biock  (character  224  in  iine  1 00)  is  used  to  build  the  court,  the  bat  (character 
255)  is  defined  in  line  1  10  and  the  baii  (character  226)  in  iine  120. 

There  are  two  sound  commands  used.  When  the  baii  bounces,  you'll  hear 
SOUND  2,-15,200,1  and  the  rather  nasty  'out  of  court'  sound  is  SOUND  0,  - 
15,12,15. 

Lines  50  to  70  of  this  program  aiiow  the  arrow  keys  to  be  used,  and  they  also 
set  the  rapid  key  response  that  you^\  need  to  keep  on  top  of  the  game.  The 
command  In  line  60  (*FX  11,1)  removes  the  slight  pause  which  usually 
occurs  between  a  key  press  and  the  reaction  to  it,  and  iine  70  (*FX  1  2,  1  ) 
changes  the  rate  at  which  the  keys  repeat 


Line  630  restores  the  usuai  function  of  the  cursor  keys,  and  the  normal  key 
response  rate  is  restored  by  iine  640. 


10  REM  BREAKOUT 
20  X=RND(-TIME) 

30  MODE  4 

40  CLS 

50  *FX  4,1 

60  *FX  11,1 

70  *FX  12,1 

80  VDU  19,1,3,0,0,0 

90  VDU  19,0,4,0,0,0 

100  VDU  23, 224,&FF,&FF,&FF,&FF,&FF,&FF, 
&FF,&FF 

110  VDU  23, 225,&FF,&FF,&FF,&FF, 0, 0, 0, 0 
120  VDU  23, 226,&00,&18,&3C,&7E,&FF,&7E, 
&3C,&18 
130  C=8 
140  D=1 
150  E=1 
160  F=1 
170  B=5 

180  FOR  X=1  TO  6 

190  FOR  Z=1  TO  14 

200  PRINT  TAB(Z,X) ;CHR$(224) 

210  NEXT  Z 
220  NEXT  X 
230  FOR  X=1  TO  9 


24 


240  PRINT  TAB(l) ;CHR$(224) ;TAB(14) ;CHR 
$(224) 

250  NEXT  X 
260  D=2 

270  IP  B<3  THEN  B=3 
280  W=0 

290  PRINT  TAB(B,15);"  " 

300  D=3 
310  C=8 
320  E=1 
330  B=5 

340  PRINT  TAB(B,15);"  " 

350  IF  C=14  AND  BOD  THEN  SOUND  0,-15, 
12,15:PRINT  TAB(D,C);"  ";:G0T0  590 
360  Q=INKEY(0) 

370  *FX  15,0 

380  IF  Q=&88  THEN  B=B-1 

390  IF  Q=&89  THEN  B=B+1 

400  IF  B<3  THEN  B=3 

410  IF  B>12  THEN  B=12 

420  PRINT  TAB(B,15) ;CHR$(225) 

430  PRINT  TAB(D,C);"  " 

440  IF  C=0  THEN  E=ABS(E) 

450  C=C+E 
460  D=D+F 

470  IF  D<3  OR  D>13-ABS(F)  THEN  F=-F:SO 
UND  2, -15,200,1 

480  PRINT  TAB(D,C),- 

490  IF  C=14  THEN  GOTO  550 

500  V=?FNS(D,C,0) 

510  IF  V=&FF  THEN  E=ABS ( E ): SOUND  2,-15 

,200,1 

520  PRINT  TAB(D,C)  ,-CHR$(226) 

530  FOR  Z=1  TO  200:NEXT  Z 
540  GOTO  340 
550  E=-E 

560  IF  B=D  THEN  SOUND  2,-15,200,1 
570  P=SGN(F*(INT(RND(1)+RND(1) )+ABS(E) 

)) 

580  GOTO  520 
590  W=W+1 

600  PRINT  TAB (1, 20) ; "BALL  ";W 
610  FOR  Z=1  TO  3000:NEXT  Z 
620  IP  W<5  THEN  GOTO  290 
630  *PX  4,0 
640  *PX  12,0 

650  PRINT  "ANOTHER  GAME  ?" 

660  A$=INKEY$(0) 

670  IP  A$="Y"  THEN  RUN 
680  IP  A$<>"N"  THEN  GOTO  660 
690  VDU  20 
700  STOP 

710  DEF  PNS(X,Y,N)=HIMEM+(Y*40+X)*8+N 
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3-D  MAZE 


In  this  program  by  Dave  Kelsall,  you  are  in  a  maze  (whose  dimensions  you 
determine)  trying  to  get  through  it  to  the  exit.  At  every  turn  you  see  the  scene  in 
front  of  you,  and  you'ii  find  it  quite  uncanny  how  'soiid'  and  'real'  the  maze  can 
seem.  If  you're  in  trouble,  the  'help  option'  will  provide  a  bird's-eye  view  of  the 
maze. 


When  you  first  run  the  program,  you'll  be  asked  to  enter  the  width  of  the  maze 
first,  then  the  height.  You  can  enter  any  integer  between  two  and  12  for  the 
width,  and  between  two  and  1 0  for  the  height. 

The  program  iength  is  awesome,  but  we  assure  you  the  effort  of  entering  aii  of 
it  will  be  amply  repaid. 

Here  are  a  coupie  of  sample  mazes  as  generated  by  the  program: 


3-D  MAZE 


Enter 

size 

of 

maze 

1  - 

width 

Height 

Thinking 

-Do 

you  want 

to 

see 

+  + 

+ 

"  1 

+ 

1 

+ 

1  " 

+ 

+ 

+ 

+ 

+  + 

+ 

"  1 

+ 

1 

+ 

1  " 

+ 

+ 

+ 

+ 

+  + 

+ 

"  1 

+ 

1 

+ 

1  " 

+ 

+ 

+ 

+ 

+  + 

+ 

"  1 

+ 

1 

+ 

1  " 

+ 

+ 

+ 

+ 

+  + 

+ 

"  1 

+ 

1 

+ 

1 

+ 

+ 

+ 

+ 

+  + 

+ 

"  1 

+ 

+ 

1 

+ 

+ 

+ 

+ 

+  + 

+ 

"  1 

+ 

1 

+ 

1 

+ 

+ 

+ 

+ 

+  + 

+ 

+ 

+ 

1  " 

+ 

+ 

+ 

+ 

+  + 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

Type  L=Left  R=Right  F=Forward 


plan?Y/N 


H=HELP! ! 
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3-D  MAZE 

Enter  size  of  maze  -  Width  5 

Height  5 

Thinking -Do  you  want  to  see  a 

+  + _ + _ + _ + _ + 

I  I  I  I  I  I 

+  + _ + _ + _ + _ + 

I  !  !  !  ! 

+ _ +  + _ + _ + _ + 

II  !  !  ! 


+  + _ + 

I  I  I 
+  +  + 
I  I  I 


+ _ + _ +  + _ + _ + 

Type  L=Left  R=Right  F=Forward 

Press  Space  Bar  to  proceed 


plan?Y/N 


H=HELP! ! 


10  REM  3-D  MAZE 

20  REM  By  Dave  Kelsall,  St  Albans 

30 

40  CLEAR :CLS 
50  ON  ERROR  RUN 
60  MODE  7 
70  Ml=5 
80  A1=1:A2=2 

90  PRINT' '' 'TAB(13) ; "3-D  MAZE"''' 

100  REM**GET  MAZE  SIZE** 

110  INPUT  "Enter  size  of  maze  -  Width 
"H 

120  INPUT  TAB (21) "Height  "V 
130  PRINT; "Thinking-"; 

140  IF  H>12  OR  H<2  OR  V>10  OR  V<2  THEN 
PRINT"These  dimensions  are  excessive!"' 
:  CLEAR: GOTO  110 

150  REM**DIM  MAZE  ARRAY** 

160  DIM  W(H,V+2) ,V(H,V+2) 

170  Q=0:Z=0:X=RND(H) 

180  REM** SAVE  MAZE  ENTRY  POINT** 

190  C=1:W(X,1)=C:V(0,0)=X:C=C+1 

200  R=X:S=l:GOTO  270 

210  REM**START  TO  BUILD  MAZE** 

220  IF  ROH  THEN  260 
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230  IF  SOV  THEN  250 
240  R=1:S=1:G0T0  270 
250  R=1:S=S+1:G0T0  270 
260  R=R+1 

270  IF  W(R,S)=0  THEN  220 

280  IF  R-1=0  THEN  600 

290  IF  W(R-1,S)<>0  THEN  600 

300  IF  S-1=0  THEN  430 

310  IF  W(R, 8-1)00  THEN  430 

320  IF  R=H  THEN  360 

330  IF  W(R+1,S)<>0  THEN  360 

340  REM**LEFT/DOWN/RIGHT** 

350  ON  RND(3)  GOTO  920,970,1020 

360  IF  SOV  THEN  390 

370  IF  Z=1  THEN  420 

380  Q=1:G0T0  410 

390  IF  W(R, 8  +  1)00  THEN  420 

400  REM**LEFT/DOWN/UP** 

410  ON  RND(3)  GOTO  920,970,1100 

420  ON  RND(2)  GOTO  920,970 

430  IF  R=H  THEN  540 

440  IF  W(R+l,S)O0  THEN  540 

450  IF  SOV  THEN  480 

460  IF  Z=1  THEN  530 

470  Q=1:G0T0  500 

480  IF  W(R, 8  +  1)00  THEN  530 

490  REM**LEFT/RIGHT/UP** 

500  ON  RND(3)  GOTO  920,1020,1100 

510  GOTO  1100 

520  REM**LEFT/RIGHT** 

530  ON  RND(2)  GOTO  920,1020 

540  IF  SOV  THEN  570 

550  IF  Z=1  THEN  920 

560  Q=l:GOTO  590 

570  IF  W(R, 8  +  1)00  THEN  920 

580  REM**LEFT/UP** 

590  ON  RND(2)  GOTO  920,1100 

600  IF  8-1=0  THEN  780 

610  IF  W(R,S-l)O0  THEN  720 

620  IF  R=H  THEN  720 

630  IF  W(R+l,S)O0  THEN  720 

640  IF  SOV  THEN  670 

650  IF  Z=1  THEN  710 

660  Q=1:G0T0  690 
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670  IF  W(R,S+1)<>0  THEN  710 
680  REM**DOWN/RIGHT/UP** 

690  ON  RND(3)  GOTO  970,1020,1100 
700  REM**DOWN/RIGHT** 

710  ON  RND(2)  GOTO  970,1020 

720  IF  SOV  THEN  750 

730  IF  Z=1  THEN  970 

740  Q=l:GOTO  770 

750  IF  W(R, 8  +  1)00  THEN  970 

760  REM** DOWN/ UP** 

770  ON  RND(2)  GOTO  970,1100 

780  IF  R=H  THEN  860 

790  IF  W(R+1,S)<>0  THEN  860 

800  IF  SOV  THEN  830 

810  IF  Z=1  THEN  1020 

820  IF  Q=1  THEN  980 

830  IF  W(R, 8  +  1)00  THEN  1020 

840  REM**RIGHT/UP** 

850  ON  RND(2)  GOTO  1020,1100 

860  IF  SOV  THEN  890 

870  IF  Z=1  THEN  220 

880  Q=l:GOTO  900 

890  IF  W(R, 8  +  1)00  THEN  220 

900  GOTO  1100 

910  REM**LEFT** 

920  W(R-1,S)=C 
930  C=C+1:V(R-1,S)=2:R=R-1 
940  IF  C=H*V+1  THEN  1220 
950  Q=0:GOTO280 
960  REM**DOWN** 

970  W(R,S-1)=C 
980  C=C+1 

990  V(R,S-1)=1:S=S-1:IF  C=H*V+1  THEN  1 
220 

1000  Q=0:GOTO  280 
1010  REM**RIGHT** 

1020  W(R+1,S)=C 

1030  C=C+1:IF  V(R,S)=0  THEN  1050 
1040  V(R,S)=3:GOTO  1060 
1050  V(R,S)=2 
1060  R=R+1 

1070  IF  C=H*V+1  THEN  1220 
1080  GOTO  600 
1090  REM**UP** 
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1100  IF  Q=1  THEN  1170 

1110  W(R,S+1)=C:C=C+1:IF  V(R,S)=0  THEN 
1130 

1120  V(R,S)=3:GOTO  1140 
1130  V(R,S)=1 

1140  S=S+1:IF  C=H*V+1  THEN  1220 
1150  GOTO  280 

1160  REM**EXIT  AT  TOP  OF  SCREEN** 

1170  Z=1 

1180  IF  V(R,S)=0  THEN  1200 
1190  V(R,S)=3:Q=0:GOTO  220 
1200  V(R,S)=l:Q=0:R=l:S=l:GOTO270 
1210  REM**MAKE  EXIT  IF  NONE** 

1220  IF  ZOl  THEN  V(RND(H)  , V)  =1 
1230  REM**END  OF  MAZE  BUILD** 

1240  PRINT  "Do  you  want  to  see  a  plan?" 
;CHR$ (131) ; "Y/N" 

1250  IF  LEFT$ (GET$, 1) ="Y"  THEN  1280  EL 
SE  GOTO  1560 

1260  CLS :PRINT" CHEAT! !! " 

1270  REM**2D  DISPLAY  ROUTINE** 

1280  FOR  J=V  TO  1  STEP  -1 
1290  FOR  1=1  TO  H 
1300  IF  V(I,J)=0  THEN  1350 
1310  IF  V(I,J)=2  THEN  1350 
1320  REM**PRINT  TOP  OF  CELLS** 

1330  PRINT  "+  "; 

1340  GOTO  1360 

1350  PRINT "+ _ "; 

1360  NEXT  I 
1370  PRINT" +" 

1380  PRINT"!"; 

1390  FOR  1=1  TO  H 

1400  IF  V(I,J)<2  THEN  1440 

1410  REM**PRINT  SIDES  OF  CELLS** 

1420  PRINT" 

1430  GOTO  1450 
1440  PRINT"  !"; 

1450  NEXT  I 

1460  PRINT 

1470  NEXT  J 

1480  FOR  1=1  TO  H 

1490  IF  I=V(0,0)  THEN  1520 

1500  REM**PRINT  BOTTOM  OF  MAZE** 
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1510  PRINT" + _ ";:GOTO  1530 

1520  PRINT" + 

1530  NEXT  I 
1540  PRINT"+" 

1550  REM**INSTRUCTIONS** 

1560  PRINT"Type  L=Left  R=Right  F=Forwar 
d  H=HELP ! !  " 

1570  PRINT;CHR$(136) ;CHR$(130) /"Press  S 
pace  Bar  to  proceed" 

1580  IF  GET$="  "  THEN  1590  ELSE  1580 
1590  CLS:M0DE  Ml : VDU23 ; 8202 ; 0 ; 0 ; 0 ; 

1600  REM** TRANSLATE  ROUTINE** 

1610  FOR  1=1  TO  V 
1620  FOR  K=1  TO  H 
1630  W(K,I)=6-2*V(K,I) 

1640  NEXT  K 
1650  NEXT  I 
1660  W=V(0,0) 

1670  REM**COMPLETE  CELL  INFO** 

1680  FOR  J=1  TO  V 
1690  FOR  1=1  TO  H 
1700  IF  JOl  THEN  1730 
1710  IF  I=W  THEN  1760 
1720  M=l:GOTO  1750 
1730  M=INT(W(I, J-l)/2) 

1740  M=M-INT(M/2)*2 
1750  W(I, J)=W(I, J)+M*8 
1760  IF  1=1  THEN  M=l:GOTO  1790 
1770  M=INT(W(I-1, J)/4) 

1780  M=M-INT(M/2)*2 
1790  W(I, J)=W(I, J)+M 
1800  NEXT  I 
1810  NEXT  J 

1820  REM** SET  UP  START  PARMS** 

1830  X=W:Y=0:Z=1 

1840  GOTO  2710 

1850  REM** HELP  ROUTINE** 

1860  PRINT  TAB(5,29) ; "You  are  at" 

1870  PRINT  TAB(3);X;"  East,  ";Y;"  North 

II 

1880  PRINT  TAB(3);"and  facing  "; 

1890  IF  Z=1  THEN  PRINT  "NORTH  "; 

1900  IF  Z=2  THEN  PRINT  "EAST  "; 

1910  IF  Z=3  THEN  PRINT  "SOUTH  "; 
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1920  IF  Z=4  THEN  PRINT  "WEST 
1930  GOSUB  2160 
1940  GOTO  1960 

1950  REM**KEYBOARD  ROUTINE** 

1960  IF  Y>V  THEN  4450 
1970  G$=GET$ 

1980  IF  G$="L"  THEN  2040 

1990  IF  G$="R"  THEN  2080 

2000  IF  G$="F"  THEN  2640 

2010  IF  G$="H"  THEN  1860 

2020  GOTO  1970 

2030  REM**LEFT  TURN** 

2040  Z=Z-1:IF  Z<1  THEN  Z=Z+4 
2050  C1=A1:A1=A2:A2=C1 
2060  GOTO  2710 
2070  REM**RIGH  TURN** 

2080  Z=Z+1:IF  Z>4  THEN  Z=Z-4 
2090  C1=A1 :A1=A2 :A2=C1 
2100  GOTO  2710 

2110  REM**CLS  &  WAIT( ??)//?? 

2120  CLS 

2130  PRINT  TAB(0,29); 

2140  RETURN 

2150  REM**RESET  CURSOR  &  WAIT** 

2160  PRINT  TAB(4,18); 

2170  GOTO  2130 

2180  REM**ERAZE  MESSAGE**?? 

2190  GOSUB  2550 

2200  PRINT  TAB (4, 18);" 

2210  S=0 
2220  RETURN 

2230  REM** ROTATE  &  LOOK** 

2240  IF  B=0  THEN  2370 
2250  IF  B>V  THEN  E=2: RETURN 
2260  F=W(A,B) 

2270  IF  Z=1  THEN  2320 
2280  REM** ROTATE** 

2290  FOR  1=2  TO  Z 

2300  F=INT(F/2)+(F-INT(F/2)*2)*8 

2310  NEXT  I 

2320  C=F-INT(F/2)*2:C=ABS(C-1) 

2330  D=INT(F/4) - INT (F/8 ) *2 : D=ABS (D- 1 ) 
2340  E=INT(F/2) -INT(F/4)*2 
2350  RETURN 
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2360  REM**OUTSIDE  MAZE** 

2370  C=0:D=0:E=-1 
2380  IF  ZOl  THEN  2430 
2390  E=1 

2400  IF  A=W  THEN  E=0 
2410  RETURN 

2420  REM**NO-MAN'S  LAND** 

2430  IF  Z=3  THEN  E=2 

2440  IF  Z=2  THEN  IF  A=H  THEN  E=2 

2450  IF  Z=4  THEN  IF  A=1  THEN  E=2 

2460  RETURN 

2470  REM** INDEX  NEXT  CALL** 

2480  IF  E>0  THEN  2570 

2490  IF  Z=1  THEN  B=B+1 

2500  IF  Z=2  THEN  A=A+1 

2510  IF  Z=3  THEN  B=B-1 

2520  IF  Z=4  THEN  A=A-1 

2530  RETURN 

2540  REM**MESSAGE  ROUTINE** 

2550  PRINT  TAB(4,18); 

2560  RETURN 
2570  GOSUB  2550 

2580  IF  E=1  THEN  PRINT"  DEAD  END  " 

2590  IF  E=2  THEN  PRINT "NO  MANS  LAND" 

2600  GOSUB  2160 

2610  S=1 

2620  RETURN 

2630  REM** GO  FORWARD** 

2640  A=X:B=Y 

2650  GOSUB  2240 

2660  GOSUB  2480 

2670  X=A:Y=B 

2680  IF  Y>V  THEN  4450 

2690  IF  E>0  THEN  1960 

2700  REM**3-D  DISPLAY** 

2710  A=X:B=Y 
2720  GOSUB  2240 
2730  REM**5  LAYERS** 

2740  T=1 

2750  GOSUB  2840 

2760  REM**CHECK  FOR  NEXT  DEPTH** 

2770  IF  EOO  THEN  1960 
2780  GOSUB  2480 
2790  GOSUB  2240 
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2800 

2810 

2820 

2830 

2840 

,4230 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 


IF  E=2  THEN  1960 
T=T+1:IF  T<7  THEN  2750 
GOTO  1960 

REM** JUMP  TO  DISPLAY  DEPTH** 

ON  T  GOTO  2860,3080,3400,3680,3960 

REM**DEPTH-1** 

GOSUB  2120 

IF  E<0  OR  E>1  THEN  RETURN 

GCOLO,A2 

MOVE  0,0 

MOVE  0,1024 

PLOT  85,128,0 

PLOT  85,128,1024 

PLOT  85,640,512 

GCOLO, 3 

PLOT  85,1152,1024 
GCOLO, A2 
PLOT  85,1152,0 
PLOT  85,1280,1024 
PLOT  85,1280,0 
IF  E=0  THEN  RETURN 
GCOLO, A1 
MOVE  0 , 0 
MOVE  1280,0 
PLOT  85,0,1024 
PLOT  85,1280,1024 
RETURN 

REM**DEPTH-2** 

IF  C=0  THEN  3200 
GCOL  0,0 
MOVE  0 , 0 
MOVE  128,0 
PLOT  85,0,144 
PLOT  85,272,144 
GCOL  0,A1 
PLOT  85,0,880 
PLOT  85,272,880 
GCOL  0,3 
PLOT  85,0,1024 
PLOT  85,128,1024 
IF  D=0  THEN  3320 
GCOL  0,0 
MOVE  1152,0 
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3230 

MOVE 

1280,0 

3240 

PLOT 

85,1008 

,144 

3250 

PLOT 

85,1280 

,144 

3260 

GCOL 

0,A1 

3270 

PLOT 

85,1008 

,880 

3280 

PLOT 

85,1280 

,880 

3290 

GCOL 

0,3 

3300 

PLOT 

85,1152 

,1024 

3310 

PLOT 

85,1280 

,1024 

3320 

IF  E  = 

0  THEN 

RETURN 

3330 

GCOL 

0,A1 

3340 

MOVE 

272,144 

3350 

MOVE 

1008,144 

3360 

PLOT 

85,272, 

880 

3370 

PLOT 

85,1008 

,880 

3380 

RETURN 

3390 

REM**DEPTH-3** 

3400 

IF  C= 

0  THEN 

3500 

3410 

GCOL 

0,0 

3420 

MOVE 

292,164 

3430 

MOVE 

400,272 

3440 

PLOT  85,292 

,272 

3450 

GCOL 

0,A1 

3460 

PLOT 

85,400, 

752 

3470 

PLOT 

85,292, 

752 

3480 

GCOL 

0,3 

3490 

PLOT 

85,292, 

860 

3500 

IF  D  = 

0  THEN 

3600 

3510 

GCOL 

0,0 

3520 

MOVE 

988,164 

3530 

MOVE 

880,272 

3540 

PLOT 

85,988, 

272 

3550 

GCOL 

0,A1 

3560 

PLOT  85,880 

,752 

3570 

PLOT 

85,988, 

752 

3580 

GCOL 

0,3 

3590 

PLOT 

85,988, 

860 

3600 

IF  E  = 

0  THEN 

RETURN 

3610 

GCOL 

0,A1 

3620 

MOVE 

400,272 

3630 

MOVE 

800,272 

3640 

PLOT 

85,400, 

752 

3650 

PLOT 

85,880, 

752 

3660 

RETURN 
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3670 

REM**DEPTH-4** 

3680 

IF  C= 

^0  THEN 

3780 

3690 

GCOL 

0,0 

3700 

MOVE 

420,292 

3710 

MOVE 

496,368 

3720 

PLOT 

85,420, 

368 

3730 

GCOL 

0,A1 

3740 

PLOT 

85,496, 

656 

3750 

PLOT 

85,420, 

656 

3760 

GCOL 

0,3 

3770 

PLOT 

85,420, 

732 

3780 

IF  D= 

:0  THEN 

3880 

3790 

GCOL 

0,0 

3800 

MOVE 

860,292 

3810 

MOVE 

784,368 

3820 

PLOT 

85,860, 

368 

3830 

GCOL 

0,A1 

3840 

PLOT 

85,784, 

656 

3850 

PLOT 

85,860, 

656 

3860 

GCOL 

0,3 

3870 

PLOT 

85,860, 

732 

3880 

IF  E  = 

:0  THEN 

RETURN 

3890 

GCOL 

0,A1 

3900 

MOVE 

496,368 

3910 

MOVE 

784,368 

3920 

PLOT 

85,496, 

656 

3930 

PLOT 

85,784, 

656 

3940 

RETURN 

3950 

REM**DEPTH-5** 

3960 

IF  C  = 

:0  THEN 

4060 

3970 

GCOL 

0,0 

3980 

MOVE 

506,378 

3990 

MOVE 

576,448 

4000 

PLOT 

85,506, 

448 

4010 

GCOL 

0,A1 

4020 

PLOT 

85,576, 

576 

4030 

PLOT 

85,506, 

576 

4040 

GCOL 

0,3 

4050 

PLOT 

85,506, 

646 

4060 

IF  D= 

:0  THEN 

4160 

4070 

GCOL 

0,0 

4080 

MOVE 

774,378 

4090 

MOVE 

704,448 

4100 

PLOT 

85,774, 

448 
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4110  GCOL  0,A1 
4120  PLOT  85,704,576 
4130  PLOT  85,774,576 
4140  GCOL  0,3 
4150  PLOT  85,774,646 
4160  IF  E=0  THEN  RETURN 
4170  GCOL  0,A1 
4180  MOVE  576,448 
4190  MOVE  704,448 
4200  PLOT  85,576,576 
4210  PLOT  85,704,576 
4220  RETURN 
4230  REM**DEPTH-6** 

4240  IF  C=0  THEN  4330 
4250  GCOL  0,0 
4260  MOVE  586,458 
4270  MOVE  608,480 
4280  PLOT  85,586,480 
4290  GCOL  0,A1 

4300  PLOT  85,608,544:PLOT  85,586,544 
4310  GCOL  0,3:PLOT  85,586,566 
4320  IF  D=0  THEN  4410 
4330  GCOL  0,0 

4340  MOVE  694,458:MOVE  672,480 
4350  PLOT  85,694,480 
4360  GCOL  0,A1 

4370  PLOT  85,672,544:PLOT  85,694,544 

4380  GCOL  0,3 

4390  PLOT  85,694,566 

4400  IF  E=0  THEN  RETURN 

4410  GCOL  0,A1 

4420  MOVE  608,480:MOVE  672,480 
4430  PLOT  85,608,544:PLOT  85,672,544 
4440  RETURN 

4450  REM**WAY  OUT  FOUND** 

4460  PRINT  TAB (8, 16) ; "EXIT" 

4470  PRINT  TAB (8, 22 ); "WELL" 

4480  PRINT  TAB (8, 24 ); "DONE" 

4490  IF  V>5  THEN  PRINT  TAB ( 5 , 26 ) ; "BRILL 
lANT !  " 

4500  PRINT  TAB (5, 28 ); "AGAIN?  Y/N" 

4510  IF  GET$="Y"THEN  RUN  ELSE  CHAIN"" 
4520  END 
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CHEMIN  DE  PER 


The  BBC  Micro's  version  of  Chemin  de  Fer  features  some  good  dice  graphics, 
and  a  game  which  can  become  quite  compuisive.  The  aim  of  the  game  is  to 
get  as  ciose  as  possibie  to  a  totai  of  nine,  or  a  number  that  ends  in  nine.  The 
piayer  who  does  so  wins  the  round. 

The  banker  (heaviiy  disguised  as  a  BBC  Micro)  starts,  and  roiis  five  dice.  A 
totai  of  nine  is  'La  Grande',  a  totai  of  eight  is  'La  Petite'  and  seven  is  a  'Naturai'. 

if  one  of  these  three  has  not  been  roiied,  any  dice  which  ianded  showing  five  or 
two  must  be  roiied  again.  You  then  add  the  pips  from  the  dice  which  were  not 
two  or  five  on  the  first  roii,  pius  the  pips  which  show  from  the  second  roii.  Any 
dice  that  come  up  two  or  five  on  the  second  roii  are  counted  as  zero. 

The  finai  digit  is  the  oniy  one  that  counts  (so  a  totai  of  12  counts  as  2,  and  29 
counts  as  9).  Dead-heats  -  known  as  'stand-offs  -  are  not  counted  in  the  race 
to  win  the  most  games  out  of  nine.  The  dice  graphics  are  defined  in  iines  30  to 
80. 

it  is  very  simpie  to  piay  this  game,  as  the  computer  does  most  of  the  work. 
Press  RETURN  when  prompted  by  the  '?'. 

10  MODE4 : VDU23;8202;0;0;0; 

20  DIM  D$(6) 

30  VDU  19,0,4,0,0,0 

40  VDU  23, 224,&FF,&FF,&FF,&E7,&E7,&FF,&FF,&FF 
50  VDU  23, 225,&FF,&FF,&FF,&99,&99,&FF,&FF,&FF 
60  VDU  23, 226,&FF,&9F,&9F,&E7,&E7,&F9,&F9,&FF 
70  VDU  23, 227,&FF,&FF,&99,&99,&FF,&99,&99,&FF 
80  VDU  23, 228,&FF,&99,&99,&E7,&E7,&99,&99,&FF 
90  VDU  23, 229,&99,&99,&FF,&99,&99,&FF,&99,&99 
100  FOR  A=1  TO  6 
110  V=A+223 
120  D$(A)=CHR$(V) 

130  NEXT  A 
140  B1=0 
150  P1=0 
160  PRINT  ' ' ' 

170  PRINT: PRINT  "BANKER" 

180  D=PNDICE(D$,D) 

190  PRINT  "PINAL  TOTAL  ";D 
200  INPUT  A$ 

210  J=D 

220  PRINT  "PLAYER" 

230  D=FNDICE(D$,D) 
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240  PRINT  "FINAL  TOTAL  :  ";D 
250  INPUT  A$ 

260  PRINT  "BANKER  =  ";J;"  PLAYER  =  ";D;"  " 

270  IP  J=D  THEN  PRINT  " STAND - OFF GOTO  320 
280  IP  J>D  THEN  PRINT  "BANKER  WINS " : B1=B1+1 
290  IP  J<D  THEN  PRINT  "PLAYER  WINS " : P1=P1+1 
300  PRINT 

310  PRINT  "TOTAL  WINS" 

320  PRINT  "BANKER  PLAYER" 

330  PRINT  STR$(B1);"  ";P1 

340  IF  B1+P1=9  THEN  STOP 
350  INPUT  A$ 

360  CLS 

370  GOTO  170 

380  DEPFNDICE(D$,D) 

390  D=0 
400  C=0 

410  FOR  G=1  TO  5 
420  A=RND(6) 

430  PRINT  TAB(G)"  ";D$(A) 

440  IF  (A=2)  OR  (A=5)  THEN  C=C+1:A=0 
450  D=D+A 

460  FOR  Z=1  TO  3000:NEXT  Z 
470  NEXT  G 
480  PRINT 

490  IF  D>9  THEN  D=D-10 
500  IF  D>9  THEN  D=D-10 

510  PRINT  "TOTAL  ON  FIRST  ROLL  IS  ";D 
520  IF  D=9  THEN  PRINT, "LA  GRANDE" 

530  IF  D=8  THEN  PRINT, "LA  PETITE" 

540  IF  D=7  THEN  PRINT, "NATURAL " 

550  FOR  Z=1  TO  3000:NEXT  Z 

560  IF  C=0  OR  D=7  OR  D=8  OR  D=9  THEN  GOTO  680 
570  PRINT  "MUST  ROLL  ";C;"  AGAIN" 

580  PRINT 

590  FOR  A=1  TO  C 

600  E=INT(RND(6) ) 

610  PRINT:PRINT  D$(E) 

620  IP  E=2  OR  E=5  THEN  E=0 
630  D=D+E 

640  FOR  Z=1  TO  3000:NEXT  Z 
650  NEXT  A 
660  PRINT 

670  IP  D>9  THEN  D=D-10 
680  IP  D>9  THEN  D=D-10 
690  =D 
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A  DAY  AT  THE  RACES 


You  press  RUN,  the  green  race  course  is  drawn,  and  six  horses  await  the 
starting  signai.  Then  they're  off,  until  one  of  the  six  crosses  the  finish  iine. 
You'll  see  the  flashing  cursor,  which  can  interfere  with  the  graphics  dispiays,  is 
suppressed  by  iine  30.  Line  20  uses  the  BBC  Micro's  internal  timer  as  the  seed 
for  the  randgm  number  generator.  Once  you've  run  this  a  few  times,  you  may 
wish  to  modify  it  to  aiiow  for  one  or  more  piayers  (and  perhaps  the  computer) 
to  bet  on  the  outcome 

10  X=RND(-TIME) 

20  MODE  4 

30  VDU  23;&200A;0;0;0; 

40  VDU  23,225,&00,&30,&58,&FF,&BE,&42 
,&81,&00 

50  VDU  19,0,2,0,0,0 
60  VDU  19,1,0,0,0,0 
70  DIM  A(6) 

80  DIM  Q(6) 

90  FOR  A=1  TO  6 
100  A(A)=1:Q(A)=1 
110  NEXT  A 
120  K=0 
130  Q=1 
140  CLS 

150  FOR  Z=1  TO  30 

160  PRINT  TAB(Z, 14) ; " - " ;TAB( Z, 1) ; " - " 

170  NEXT  Z 

180  FOR  Z=2  TO  12  STEP  2 
190  PRINT  TAB(30, Z+1) ;Z/2 
200  PRINT  TAB(3, Z) ; " I ” 

210  NEXT  Z 

220  FOR  Z=3  TO  13  STEP  2 

230  FOR  B=1  TO  6 

240  PRINT  TAB(Q(B) , Z) ; "  " 

250  NEXT  B 
260  NEXT  Z 
270  PRINT  TAB(1, 3) ; 

280  FOR  B=1  TO  6 

290  A(B)=A(B)+RND(3) -1 

300  FOR  C=1  TO  ABS(28-A(B)) 

310  PRINT  " 

320  NEXT  C 
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330  Q(B)=C-1 

340  PRINT  CHR$(225) 

350  PRINT 

360  IF  A(B)>24  THEN  K=1 
370  NEXT  B 

380  IF  K=1  THEN  GOTO  400 

390  GOTO  220 

400  PRINT 

410  FOR  Q=1  TO  6 

420  Q(Q)=Q 

430  NEXT  Q 

440  FOR  B=1  TO  5 

450  F=0 

460  FOR  D=1  TO  (6-B) 

470  IF  A(D+1)>=A(D)  THEN  GOTO  520 
480  E=A(D) :G=Q(D) 

490  A(D)=A(D+1) :Q(D)=Q(D+1) 

500  A(D+1)=E:Q(D+1)=G 
510  F=1 
520  NEXT  D 

530  IF  F=0  THEN  GOTO  550 
540  NEXT  B 

550  FOR  Z=6  TO  1  STEP  -1 
560  PRINT  "POSITION  ";7-Z;"  -  HORSE  NU 
MBER  ";Q(Z) 

570  NEXT  Z 

580  FOR  Z=1  TO  2000:NEXT  Z 
590  INPUT  "DO  YOU  WANT  ANOTHER  RACE  (Y 
/N)",A$ 

600  IF  LEFT$ (A$, 1) ="Y"  THEN  GOTO  90 
610  VDU  20 
620  MODE  7 
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WIZARD  WIZ 


If  you  enjoy  the  game  of  deduction  known  as  MASTERMIND  (the  name  and 
certain  board  versions  of  the  game  are  copyright  invicta  Plastics),  then  you'ii 
find  your  BBC  Micro  makes  a  perfect  playing  partner  in  this  three-digit  version 
of  the  game. 

The  computer  picks  a  three-digit  number,  without  repeating  any  digit  within  the 
number.  Sampie  codes  could  be  123,  472  or  825.  When  prompted  you  enter 
your  guess,  or  three  digits.  If  you've  placed  a  correct  digit  in  its  correct  position, 
you'll  be  shown  a  solid  square.  If  your  guess  includes  a  number  which  is  within 
the  code,  but  not  where  you  have  placed  it,  the  computer  will  display  a  triangle. 

If  you're  not  too  good,  and  your  guess  doesn't  include  any  numbers  which  are 
in  the  computer's  number,  you'll  be  awarded  nothing. 

You  get  up  to  ten  guesses,  and  you'll  be  told  the  computer's  code  if  you  faii  to 
get  the  number  within  the  ten.  If  you  do  crack  the  code,  the  numberot  guesses 
it  took  you  to  do  so  wiii  be  displayed. 


10  REM  WIZARD  WIZ 
20  CLS 
30  PRINT' ' ' 

40  VDU  23,229,&01,&03,&07,&0F,&1F,&3F 
,&7F,&FF 

50  VDU  23,230,&00,&FF,&FF,&FF,&FF,&FF 
,&FF,&00 

60  MODE  4 
70  DIM  A(3) 

80  DIM  B(3) 

90  FOR  Z=1  TO  3 
100  LET  A(Z)=INT(RND(9) ) 

110  NEXT  Z 

120  IF  A(1)=A(2)  OR  A(1)=A(3)  OR  A(2)= 
A(3)  THEN  GOTO  90 

130  LET  A=100*A(1)+10*A(2)+A(3) 

140  FOR  C=1  TO  10 

150  INPUT  "GUESS  THE  NUMBER", B 

160  LET  B(1)=INT(B/100) 

170  LET  B(2)=INT( (B-100*B(1) )/10) 

180  LET  B(3)=INT(B-100*B(1) -10*B(2) ) 
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190  IF  A=B  THEN  GOTO  490 

200  LET  D=A 

210  LET  N=0 

220  LET  W=0 

230  FOR  E=1  TO  3 

240  IF  NOT  {A(E)=B(E))  THEN  GOTO  270 

250  N=N+1 

260  LET  A(E)=0 

270  NEXT  E 

280  FOR  F=1  TO  3 

290  IF  A(F)=0  THEN  GOTO  340 

300  FOR  E=1  TO  3 

310  IF  NOT  {B(F)=A(E))  THEN  GOTO  330 
320  LET  W=W+1 
330  NEXT  E 
340  NEXT  F 

350  LET  A(1)=INT(D/100) 

360  LET  A(2)=INT( (D-100*A(1) )/10) 

370  LET  A(3)=INT(D-100*A(1) -10*A(2) ) 
380  IF  N=0  THEN  GOTO  420 
390  FOR  X=1  TO  N 
400  PRINT  CHR$(230) 

410  NEXT  X 

420  IF  W=0  THEN  GOTO  460 
430  FOR  X=1  TO  W 
440  PRINT  CHR$(229) 

450  NEXT  X 
460  NEXT  C 
470  PRINT, A 
480  STOP 

490  PRINT: PRINT  "YOU  GOT  IT  IN  ";C 
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SPACETREK 


Join  the  crew  of  the  star  ship  Coiumbus  1 V,  patrolling  the  galaxy.  There  are  20 
or  so  aliens  in  the  sector  of  space  which  you  must  patrol,  and  your  mission  is 
to  try  and  kill  as  many  of  them  as  possible  before  your  limited  reserves  of 
energy  run  out.  If  you  land  on  an  alien  ship,  the  game  ends.  Careful  use  of 
your  scanners  will  make  sure  you  don't  do  anything  so  un-space-patrol-like. 

At  any  time  you  can  scan,  move  or  fire,  by  entering  numbers  as  prompted  by 
the  computer.  Your  scanners  work  in  two  ways.  The  'short  range  scanner' 
looks  into  the  eight  squares  immediately  surrounding  you,  while  the  'long  range 
scanner  looks  at  a  single  square  two  squares  away  from  you  in  the  direction 
you  have  specified.  Although  the  Terran  civilization  has  advanced  to  the  point 
of  being  able  to  build  star  ships,  its  onboard  computer  is  a  little  imperfect,  so 
the  output  of  the  short  range  scanner  does  not  include  the  vital  information  of 
which  direction  away  from  you  has  given  a  positive  reading.  Long  range 
scanning  uses  up  more  energy  than  does  short  range. 

Your  'alien  kill  tally'  is  incremented  when  you  hit  an  alien.  If  you  fire  into  a 
square  which  does  not  contain  an  alien,  your  display  will  show  this,  so  you  do 
not  waste  energy  firing  into  that  square  again.  Aliens,  you  see,  do  not  move 
around  during  a  game.  The  act  of  firing  on  an  alien  wakes  it  up,  and  the  alien 
ship  will  immediately  return  the  fire.  Successful  hits  will  cost  you  energy.  The 
game  continues  until  you  run  out  of  energy,  unless  you  land  on  an  alien  ship. 
The  I  character  in  lines  350  and  1  020  is  produced  using  the  upper  case  of  the 
third  last  key  in  the  top  row  (next  to  the  left  cursor  key). 

10  REM  SPACETREK 
20  MODE  4 

30  VDU  23,224,&FF,&FF,&PF,&FF,&FF,&FF 
,&FF,&FF 

40  VDU  23,225,&FF,&18,&3C,&00,&00,&3C 
,&18,&FF 

50  VDU  23,226,&A5,&5A,&A5,&5A,&A5,&5A 
,&A5,&5A 

60  DIM  A(10,10) 

70  DIM  B(10,10) 

80  LET  C=0 
90  FOR  A=1  TO  20 
100  LET  X=INT(RND(10) ) 

110  LET  Y=INT(RND(10) ) 

120  LET  A(X,Y)=1 
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130  NEXT  A 
140  LET  B=5 
150  LET  C=5 
160  LET  A(B,C)=2 
170  LET  B(B,C)=2 
180  LET  AL=0 
190  LET  Z$="" 

200  LET  Z$=FNENEMY(Z$) 

210  LET  E=1000+RND(2000) 

220  GOSUB  840 
230  GOSUB  590 
240  GOSUB  480 
250  GOSUB  590 
260  PROCWHO{R) 

270  REM  MAIN 

280  PRINT  "WHAT  IS  YOUR  ORDER, " 

290  PRINT  TAB(5);  "SIR? " , , TAB ( 12 ) ; " 1  - 
SCAN" ; 'TAB ( 12) ; "2  -  MOVE " ; ' TAB ( 12 ) ; " 3  - 
FIRE  " 

300  D=GET-48 

310  IF  D<1  OR  D>3  THEN  GOTO  290 
320  GOSUB  590 

330  ON  D  GOSUB  1010,1280,1460 

340  FOR  W=1  TO  30 

350  PRINT  TAB (5, 20);" | | |  M "; 

360  Q$=INKEY$(5) 

370  PRINT  TAB(5,20);" 

380  Q$=INKEY$(5) 

390  NEXT  W 

400  GOTO  230 

410  DEF  FNENEMY(Q$) 

420  LET  E=RND(1) 

430  IF  E<.33  THEN  LET  Q$="BRARKONS  " 
440  IF  E>.33  AND  E<.66  THEN  LET  Q$="WR 
ERKTONIANS  " 

450  IF  E>.66  THEN  LET  Q$= "POLLUXIANS  " 
460  =Q$ 

470  RETURN 
480  REM  STATUS 

490  PRINT  TAB (14, 2 ); "ENERGY  BANK;  " ; IN 
T  E ;  "  " 

500  IF  E<1  THEN  GOTO  1790 
510  IF  AL>0  THEN  PRINT  TAB ( 14 , 3 ) ; "ALIE 
N  KILL" ; TAB (17, 4) ; "TALLY;  ";AL 
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520  PRINT  TAB(14, 7) ; "YOU  ARE  AT 
II  .  c 

'530  PRINT  TAB (14, 8);" 

II 

540  PRINT  TAB(14, 8) ; "IN  " ; 

550  PROCSECT(B,C) 

560  PRINT  "  SECTOR" 

570  PRINT  TAB (0, 12) ; 

580  RETURN 

590  PRINT  TAB (0, 13) ;  " 


600  PRINT" 


610  PRINT  TAB(0, 13) ; 

620  RETURN 

630  DEF  PROCWHO(R) 

640  LET  R=INT(RND(5) ) 

650  IF  R=0  THEN  PRINT  "ZOCK:  AS  YOU  HU 
MANS  SAY, " 

660  IF  R=1  THEN  PRINT  "JOCK:  " ; 

670  IF  R=2  THEN  PRINT  "LT.  UHU:  " ; 

680  IF  R=3  THEN  PRINT  "CHECKO:  " ; 

690  IF  R=4  THEN  PRINT  "ZULU: 

700  ENDPROC 

710  DEF  PROCSECT(X, Y) 

720  LET  Q=X*Y 

730  IF  Q<10  THEN  PRINT  "ANTARES"; 

740  IF  Q>9  AND  Q<20  THEN  PRINT  "RIGEL" 

750  IF  Q>19  AND  Q<30  THEN  PRINT  "PROCY 
ON"  ; 

760  IF  Q>29  AND  Q<40  THEN  PRINT  "VEGA" 

770  IF  Q>39  AND  Q<50  THEN  PRINT  "CANOP 
US  "  ; 

780  IF  Q>49  AND  Q<60  THEN  PRINT  "ALTAI 
R"  ; 

790  IF  Q>59  AND  Q<70  THEN  PRINT  "SAGIT 
TARIUS " ; 
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800  IF  Q>69  AND  Q<80  THEN  PRINT  "POLLU 
X"; 

810  IF  Q>79  AND  Q<80  THEN  PRINT  "SIRIU 
S"; 

820  IF  Q>89  THEN  PRINT  "BETELGEUSE" ; 

830  ENDPROC 

840  REM  PRINT  OUT 

850  CLS 

860  PRINT  TAB(0, 0) ; 

870  PRINT  1234567890" 

880  FOR  Q=1  TO  10 
890  PRINT  TAB(0,Q+1); 

900  IF  Q<10  THEN  PRINT;  Q; " 

910  IF  Q=10  THEN  PRINT; Q; 

920  FOR  P=1  TO  10 

930  IF  B(Q,P)=0  THEN  PRINT;  CHR$(224); 
940  IF  B(Q,P)=2  THEN  PRINT;  CHR$(225); 
950  IF  B(Q,P)=3  THEN  PRINT;  "%"; 

960  IF  B(Q,P)=4  THEN  PRINT; 

970  NEXT  P 
980  NEXT  Q 

990  PRINT  1234567890" 

1000  RETURN 
1010  REM  SCAN 

1020  PRINT  TAB(4);"||  SCANNER  ||" 

1030  PROCWHO(R) 

1040  PRINT  "CLOSE  (1)  OR  LONG-RANGE  (2) 
,  SIR" 

1050  K=GET-48 
1060  LET  E=  E-10*K 
1070  GOSUB  590 
1080  IF  K=2  THEN  GOTO  1130 
1090  IF  A(B+1,C)=1  OR  A(B+1,C+1)=1  OR  A 
(B,C+1)=1  OR  A(B-1,C)=1  OR  A(B-1,C-1)  OR 
A(B,C-1)=1  OR  A(B+1,C-1)=1  OR  A(B-1,C+1 
)=1  THEN  PRINT;  Z$;"IN  VICINITY, ", "SIR" 
1100  FOR  Z=1  TO  1000 
1110  NEXT  Z 
1120  GOTO  1250 
1130  PROCWHO(R) 

1140  PRINT  TAB (0, 15) ; "DIRECTION:  N  (1), 
S(2),  E(3),  W(4)" 

1150  PRINT  "ENTER  A  NUMBER" : N=GET- 48 
1160  LET  Z=0 
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1170  IF  N=1  AND  A(B-2,C)=1  THEN  LET  Z=1 

1180  IF  N=2  AND  A(B+2,C)=1  THEN  LET  Z=1 

1190  IF  N=3  AND  A(B,C+2)=1  THEN  LET  Z=1 

1200  IF  N=4  AND  A(B,C-2)=1  THEN  LET  Z=1 

1210  PROCWHO(R) 

1220  PRINT  "LONG-RANGE  SCANNER  REPORT  I 
S" 

1230  IF  Z=1  THEN  PRINT  "POSITIVE" 

1240  IF  Z=0  THEN  PRINT  "NEGATIVE" 

1250  FOR  Z=1  TO  1000 
1260  NEXT  Z 
1270  RETURN 
1280  REM  MOVE 
1290  LET  E=E-50 
1300  LET  A(B,C)=0 
1310  LET  B(B,C)=0 

1320  PRINT  "DIRECTION  ( N/S ) ? " : A$=GET$ 
1330  LET  B=B-1 

1340  IF  A$="S"  THEN  LET  B=B+2 
1350  PROCWHO(R) 

1360  PRINT  "NOW  AT  ";B;",";C 
1370  PRINT  " (E/W) ?" :A$=GET$ 

1380  LET  C=C-1 

1390  IF  A$="E"  THEN  LET  C=C+2 

1400  PRINT  "NOW  AT  ";B;",";C 

1410  IF  A(B,C)=1  THEN  GOTO  1870 

1420  LET  A(B,C)=2 

1430  LET  B(B,C)=2 

1440  GOSUB  840 

1450  RETURN 

1460  REM  FIRE 

1470  PRINT  "DIRECTION  OF  FIRE  (N/S)?":A 
$=GET$ 

1480  LET  G=B-1 

1490  IF  A$="S"  THEN  LET  G=G+2 
1500  PRINT  " (E/W) ?" :A$=GET$ 

1510  LET  F=C-1 

1520  IF  A$="E"  THEN  LET  F=F+2 
1530  LET  E=E-100 

1540  IF  A(G,F)<>1  THEN  GOTO  1630 
1550  PROCWHO(R) 

1560  PRINT  "YOU  HIT  THE  ";Z$ 

1570  LET  AL=AL+1 
1580  LET  B(G,F)=4 
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1590  FOR  Z=1  TO  1000 
1600  NEXT  Z 
1610  GOTO  1780 
1620  PROCWHO{R) 

1630  LET  B(G,F)=3 

1640  PRINT  "YOU  MISSED,  SIR" 

1650  FOR  G=1  TO  1000 
1660  NEXT  G 

1670  PRINT  "THE  ";Z$;"  ARE "," SHOOTING  B 
ACK" 

1680  FOR  G=1  TO  1500 
1690  NEXT  G 
1700  GOSUB  590 

1710  IF  RND(1)>.6  THEN  GOTO  1770 
1720  PRINT  "THEY  HIT  US,  SIR" 

1730  GOSUB  840 

1740  LET  E=E-RND(100) 

1750  GOTO  1780 

1760  PRINT  "THE  ";Z$;"  MISSED,  SIR" 

1770  RETURN 

1780  GOSUB  590 

1790  PRINT  TAB (21,1); 

1800  PRINT  TAB( 13, 0) ; "ENERGY  BANKS  EXHA 
US TED" 

1810  PRINT  '"YOU  KILLED  ";AL;  "ALIEN"; 
1820  IF  ALOl  THEN  PRINT  "S" 

1830  PRINT  '"ON  THIS  MISSION" 

1840  PRINT  '"YOUR  COMMANDER  RATING  IS  " 
;  INT  (AL/8*100) 

1850  GOTO  1920 
1860  REM  END 
1870  GOSUB  590 

1880  PRINT  TAB(0, 15) ; "YOUR  SHIP  HAS  LAN 
DED  ON  A",Z$;"  VESSEL" 

1890  FOR  G=1  TO  100 
1900  NEXT  G 

1910  PRINT  ''"ANOTHER  GAME  (Y/N)?";A$=G 
ET$ 

1920  IF  A$="Y"  THEN  RUN 
1930  MODE  7 
1940  CLS 
1950  STOP 
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BIRD  CAGE 


•me  gamblin'  den  version  of  this  game  is  called  Bird  Cage,  because  it's  played 
wjth  a  wire  cage  which  can  spin  on  a  central  axis.  The  cage  holds  three  dice. 
You  bet  on  the  probability  of  a  particuiar  number  coming  up.  if  one  dice  shows 
your  number,  you  get  your  money  back.  Two  resting  with  your  number  showing 
gets  you  double,  and  if  aii  three  dice  land  showing  the  number  you've 
designated,  you  get  three  times  your  stake  back. 

You  start  with  £30.00,  and  then  decide  how  much  you  want  to  bet  and  which 
number  (one  to  six)  wiii  come  up.  The  computer  is  croupier,  and  does  all  the 
work  from  then  on. 

Lines  310  to  350  define  a  procedure,  called  from  the  body  of  the  program,  to 
keep  track  of  the  player's  stake. 


10  MODE  4 

20  VDU  19,0,4,0,0,0 

30  VDU  19,1,3,0,0,0 

40  VDU  23,224,&FF,&FF,&FF,&E7,&E7,&FF 
,&FF,&FF 

50  VDU  23,225,&FF,&FF,&FF,&99,&99,&FF 
,&FF,&FF 

60  VDU  23,226,&FF,&9F,&9F,&E7,&E7,&F9 
,&F9,&FF 

70  VDU  23,227,&FF,&FF,&99,&99,&FF,&99 
,&99,&FF 

80  VDU  23,228,&FF,&99,&99,&E7,&E7,&99 
,&99,&FF 

90  VDU  23,229,&99,&99,&FF,&99,&99,&FF 
,&99,&99 
100  M=30 
110  CLS 
120  PRINT 
130  PROCSTAKE 
140  PRINT 

150  INPUT  "HOW  MUCH  DO  YOU  WANT  TO  BET 
(' ^S)",A 

160  IF  A>M  THEN  GOTO  150 
170 

180  PRINT  "'";A 
190  M=M-A 
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200  INPUT"WHICH  NUMBER  DO  YOU  WANT  TO 
BET  ON  ( 1 -  6 ) " , B 

210  IF  B<1  OR  B>6  THEN  GOTO  210 

220  FOR  C=1  TO  3 

230  W=0 

240  PRINT 

250  PROCSTAKE 

260  D=RND(6) 

270  PRINT  '"DICE  NUMBER  " ; C; , CHR$ ( 223+ 

D) 

280  IF  D=B  THEN  W=A 

290  IF  D=B  THEN  PRINT, "YOU  WIN  '";W 

300  M=M+W 

310  PROCSTAKE 

320  PRINT 

330  NEXT  C 

340  FOR  1=1  TO  6000 

350  NEXT  I 

360  IF  M>0  THEN  GOTO  110 

370  PRINT "GAME  OVER  YOU  ARE  BROKE!!" 

380  FOR  Z=1  TO  2000 

390  NEXT  Z 

400  MODE  7 

410  CLS 

420  STOP 

430  DEF  PROCSTAKE 

440  PRINT  "YOU  HAVE  '";M;"  IN  THE  KITT 
Y" 

450  FOR  1=1  TO  1000 
460  NEXT  I 
470  ENDPROC 
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FAIRWAY 


Now's  your  chance  to  tackle  a  difficult  1 8  holes  of  golf,  trying  to  make  it  around 
the  Beetb  Golfcourse  under  par.  At  the  start  of  each  hole  you're  told  how  many 
strokes  you've  taken  so  p  and  the  target  you  need  to  beat  to  keep  under  par. 

The  distance  to  the  hole  is  shown,  and  you  then  enter  your  choice  of  club.  You 
You  can  choose  from  eight  clubs  and,  in  general,  the  higher  number  of  the 
club,  the  further  the  ball  will.  But,  as  in  real  life,  things  do  not  always  go 
according  to  plan. 

You  have  to  carry  on  driving  towards  the  green  if  you  overshoot  That  is,  if  you 
are  50  yards  from  the  green,  and  you  drive  the  ball  1  00  yards,  you'll  end  up  50 
yards  away.  You'll  be  on  t  green  when  you  hit  the  ball  to  20  yards  or  less  from 
the  hole.  The  computer  will  then  take  over,  putting  your  ball  for  you.  You'll  be 
told  how  many  putts  were  needed,  and  the  total  number  of  strokes  for  the  hole. 
At  the  end  of  the  round,  the  computer  tells  you  the  par  for  the  whole  course, 
and  gives  you  your  total  score. 

Lines  70  to  420  of  the  program  are  a  loop  that  the  computer  traverses  1 8  times 
once  for  each  hole.  Line  90  determines  the  initial  distance  to  the  hole  and  240 
works  out  how  far  you've  driven  the  ball.  Line  250  produces  a  burst  of  sound  to 
keep  things  entertaining. 

10  REM  FAIRWAY 
20  MODE  4 

30  VDU  19,0,2,0,0,0 
40  VDU  19,1,0,0,0,0 
50  Q=0 
60  T=0 

70  FOR  H=1  TO  18 
80  E  =  0 

90  D=INT(RND(400)+100) 

100  Q=Q+INT(D/70+.5) 

110  CLS 

120  PRINT  '''"HOLE  " ; 

130  PRINT  '"STROKES  SO  FAR  ";T 
140  PRINT  ' "TOTAL  NEEDED  AFTER  THIS  HO 
LE  ";Q 

150  PRINT 

160  IF  E>0  THEN  PRINT  "STROKES  ";E 
170  PRINT  '"DISTANCE  ";D 
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180  PRINT 

190  IF  D=0  THEN  GOTO  390 

200  IF  D<20  THEN  GOTO  320 

210  INPUT  "CLUB",C 

220  IF  C<1  OR  08  THEN  GOTO  210 

230  PRINT 

240  R=INT(C*20*(RND(l)+5. ) ) 

250  SOUND  0,-6,10,10 
260  PRINT  "YOU  HIT  ";R 
270  PRINT 
280  D=ABS(D-R) 

290  E=E+1 

300  FOR  Z=1  TO  3000;NEXT  Z 
310  GOTO  110 

320  PRINT  "ON  THE  GREEN  " 

330  PRINT 

340  FOR  Z=1  TO  3000;NEXT  Z 

350  R=INT(D/8)+l 

360  PRINT  "PUTTS  ";R 

370  PRINT 

380  E=E+R 

390  T=T+E 

400  PRINT  "STROKES  ";E 
410  FOR  1=1  TO  5000:NEXT  Z 
420  NEXT  H 

430  PRINT  '"SCORE  ";T 
440  PRINT  '"PAR  ";Q 
450  END 

460  INPUT  "ANOTHER  ROUND  (Y/N)",A$ 
470  IF  A$="Y"  THEN  RUN 
480  MODE  7 
490  CLS 
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ENCHANTED  FOREST 


You  are  deep  in  the  middle  of  a  dense  dark  wood  in  this  program  based  on  one 
written  by  Toni  Baker.  The  wood  is  divided  into  triangular  sections.  In  one  of 
the  sections  a  Dragon  lurks.  Other  sections  hold  evil  goblins  and  fluttery  fairies. 
You  have  to  shoot  the  Dragon  to  win. 

You  start  the  game  in  a  randomly  chosen  sector,  and  are  given  a  choice  of 
sectors  into  which  you  can  move.  If  the  Dragon,  or  a  goblin,  is  in  this  sector, 
you'll  be  killed.  If  you  land  on  fairies,  you'll  be  transported  at  random  to  another 
sector  of  the  wood.  You'll  be  given  warnings  if  you  approach  any  of  the  forest's 
inhabitants.  They  don't  move  about  during  a  game,  so  you  will  be  able  to  work 
out  where  some  of  them  are,  to  enable  you  to  avoid  their  sectors. 

You  have  three  arrows,  and  can  shoot  at  the  Dragon  by  firing  from  an  adjacent 
sector.  To  shoot  into  a  sector,  just  enter  its  number  with  a  minus  sign  in  front  of 
it  (that  is,  to  shoot  into  sector  76,  enter  -76).  We  suggest  you  begin  your 
exploration  by  sticking  to  sectors  35  to  65  as  this  will  give  you  the  best  chance 
of  finding  the  dragon. 

10  REM  FOREST 
20  MODE  4 

30  VDU  19,0,4,0,0,0 
40  DIM  A(30) 

50  DIM  B(10) 

60  G=3 

70  FOR  Z=0  TO  30 
80  A(Z)=0 
90  NEXT  Z 
100  FOR  Z=0  TO  10 
110  A=RND(30) 

120  IF  A(A)=1  THEN  GOTO  110 

130  A(A)=1 

140  B(Z)=A+35 

150  NEXT  Z 

160  CLS 

170  PRINT 

180  PRINT  '"THERE  ARE  FAIRIES  HERE" 

190  PRINT  '"WHO  WILL  NOW  CAST  A  SPELL" 

200  PRINT  ' "AND  TRANSPORT  YOU  TO  ANOTH 
ER" 

210  PRINT  ' "PART  OF  THE  FOREST" 

220  SOUND  0,-7,20,20 

230  FOR  Q=1  TO  8000:NEXT  Q 

240  Y=7 

250  X=34+2*RND(6) 

260  CLS 
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270  PRINT' ' 

280  PRINT  "YOU  ARE  NOW  IN  SECTOR  ";X 
290  A=-l 

300  FOR  Z=0  TO  10 

310  IP  B(Z)=X  THEN  A=INT(Z/5) 

320  NEXT  Z 

330  IP  A=0  THEN  GOTO  180 
340  IP  A=1  THEN  PRINT  "AND  THE  GOBLINS 
HAVE  KILLED  YOU" 

350  IF  A=2  THEN  PRINT  "YOU  FOUND  THE  D 
RAGON" 

360  IF  A>0  THEN  GOTO  600 
370  PRINT  "...YOU  CAN  MOVE  TO  ";X-1;" 
OR  ";X-2;"  OR  ";X+Y 
380  FOR  Z=0  TO  2 
390  A(Z)=0 
400  NEXT  Z 
410  FOR  Z=0  TO  10 
420  D=B(Z) -X 

430  IF  ABS(D)=1  OR  D=Y  THEN  A(Z/5)=1 
440  NEXT  Z 
450  D=ABS(D) 

460  IF  D=2  OR  D=6  OR  D=8  THEN  A(2)=l 
470  IF  A(0)=1  THEN  PRINT  "THERE  ARE  FA 
IRIES  NEARBY" : SOUND  0,-7,20,20 

480  IF  A(l)=l  THEN  PRINT  "THERE  ARE  GO 
BLINS  NEARBY" : SOUND  0,-10,15,20 

490  IF  A(2)=l  THEN  PRINT  "THE  DRAGON  I 
S  NEARBY" : SOUND  0,-15,10,20 
500  A=2 

510  INPUT  "MOVE",M 

520  IF  M<0  THEN  GOTO  560 

530  X=M 

540  Y=-Y 

550  GOTO  260 

560  IF  M=-B(10)  THEN  GOTO  350 
570  G=G-1 

580  PRINT  ,G;"  ARROWS  LEFT" 

590  IP  G>0  THEN  GOTO  510 

600  INPUT  "ANOTHER  GAME  (Y/N)",A$ 

610  IP  A$="Y"  THEN  RUN 
620  MODE  7 
630  CLS 
640  STOP 
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SINGING  THE 
INTERPLANETARY  MINER 
BLUES 


For  the  next  20  years,  you're  in  charge  of  a  uranium  mining  pianet  it's  up  to 
you  to  decide  how  much  of  your  store  of  uranium  to  trade  for  iand  and  food. 

Each  area  of  land  costs  10  units  of  uranium,  and  each  package  of  food  costs 
10  uranium  units. 

The  amount  of  uranium  you  can  produce  depends  on  the  amount  of  land  you 
mine,  and  the  size  of  your  workforce. 

If  you  don't  have  enough  food,  some  of  the  planet's  population  will  starve,  and 
if  too  many  starve  there'll  be  a  revolution,  and  you  really  will  be  singing  the 
blues. 

The  planet  needs  a  population  of  at  least  1 50  to  support  itself,  so  if  you  let 
numbers  drop  below  that  you're  out  of  commission.  On  the  other  hand,  if  you 
have  a  large  food  surplus  the  pesky  people  will  breed  like  Terran  rabbits,  and 
that  will  cause  you  problems  in  in  future  years.  S.T.I.M.B.  is  based  on  a 
program  by  Alastair  Gourlay. 


10  MODE  7 
20  P=400 
30  U=1000 
40  L=100 

50  FOR  Y=1  TO  20 
60  CLS 

70  PRINT' "Year:  ";Y;"  of  20" 

80  PRINT' "Population:  ";INT  P 
90  PRINT  "Amount  of  Land:  ";L 
100  PRINT  "Uranium  in  Store:  ";U 
110  INPUT' "How  much  Land  ",W 
120  U=U-W*10 

130  IF  U<0  THEN  PRINT"No  Uranium  !!!": 
GOTO  330 
140  L=L+W 

150  INPUT  "How  Much  Food  ",W 
160  U=U-W*10 
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170  IF  U<0  THEN  PRINT"No  Uranium  !!!": 
GOTO  330 

180  R=RND(10) 

190  IF  P-W*R*5>P/4  THEN  PRINT"Not  enou 
gh  food  for  the  population" : GOTO  250 
200  P=P+RND{1)*(W*R*5-P) 

210  IF  P<150  THEN  PRINT  "The  colony  ha 
s  less  than  150  people  left":GOTO  330 
220  U=U+INT(P*L/50) 

230  NEXT  Y 
240  GOTO  300 

250  PRINT  "There  has  been  a  rebellion" 
260  IF  RND(1)<.2  THEN  GOTO  330 
270  PRINT  "It  was  put  down" 

280  FOR  1=1  TO  3000:NEXT  I 
290  GOTO  200 

300  PRINT  "End  of  Reign" 

310  PRINT  "Uranium: ";U 
320  GOTO  350 

330  PRINT  "You  have  been  removed  from 
office " 

340  IF  U>0  THEN  GOTO  310 

350  INPUT  "Another  Reigh  (y/n)",A$ 

360  IF  A$="Y"  THEN  RUN 
370  CLS 
380  STOP 
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TIME  GUARDIAN 


Your  task  in  this  adventure  game,  based  on  a  program  written  by  Adam 
Burbidge,  is  to  recover  the  six  parts  of  the  key  of  time.  You  are  in  a  space  ship 
searching  through  a  galaxy  created  by  your  BBC  Micro.  You  start  the  game 
with  700  energy  points,  and  consume  five  points  each  move.  To  move,  enter  a 
value  between  zero  and  six  for  the  quadrant,  and  another  two  values  between 
the  same  limits  for  the  sector.  The  response  to  the  prompt  TIME?  must  be 
either  zero  or  one.  The  program  runs  In  mode  7  so,  although  It  Is  fairly  lengthy. 
It  fits  within  a  Model  A  machine. 


10  MODE 7 

20  DIMK%(4),Z$(1),A%(6,6,6,1) 

30  K%(3)=700:F=75 
40  CLS 
50  PRINT 

60  PRINT"!  AM  CREATING  A  GALAXY" 

70  B=RND(7) -1 
80  C=RND(7) -1 
90  D=RND(7)  -1 
100  E=RND(2) -1 
110  A%(B,C,D,E)=2 
120  F=F-1:IF  F<0  THEN  140 
130  GOTO  70 
140  CLS 
150  GN=RND(2) 

160  PRINT "YOU  START  AT  GLODNOB" 

170  PRINT 

180  PRINT "QUADRANT  5" 

190  PRINT 

200  PRINT "SECTOR  3,4" 

210  PRINT 

220  PRINT "TIME  ";GN*1000;"  EARTH  YEARS 

II 

230  PRINT 

240  PRINT "SET  CO-ORDINATES" 

250  INPUT "QUADRANT  ",G 

260  IP  G<0  OR  G>6  THEN  GOTO  250 

270  INPUT  "SECTOR  ",H 

280  PRINT 

290  IP  H<0  OR  H>6  THEN  GOTO  270 
300  INPUT "SECTOR  ",I 
310  IP  I<0  OR  I>6  THEN  GOTO  300 
320  INPUT "TIME  ",J 
330  IP  J<0  OR  J>1  THEN  GOTO  320 
340  IF  A%(G,H,I, J)=l  THEN  PRINT  "YOU  A 
RE  ON  GLODNOB" : GOTO  150 

350  IP  A%(G,H,I, J)>1  THEN  370 
360  PRINT"DEEP  SPACE" :GOTO  240 
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370  PRINT "YOU  ARE  ON  A  PLANET" 

380  PRINT "QUADRANT  ";G 
390  PRINT "SECTOR  ";H,I 
400  PRINT "TIME  ";J*RND(7) 

410  K%(1)=RND(20) 

420  IP  K%(1)>5  THEN  440 

430  PRINT  "UNINHABITED" : GOTO  240 

440  IP  K%(1)>10  THEN  460 

450  PRINT "INHABITANTS  HOSTILE GOTO  51 

0 

460  PRINT "PART  OP  THE  KEY  OP  ","CHRONO 
S" 

470  K%(2)=K%(2)+1 

480  PRINT "YOU  NOW  HAVE  ";K%(2);"  PARTS 
OP  THE  KEY" 

490  IP  K%(2)=6  THEN  PRINT "YOU  HAVE  WON 
! " : END 

500  GOTO  240 

510  I$(1)=INKEY$(0) 

520  IP  Z$(l)=""  THEN  540 
530  GOTO  240 

540  PRINT"SHIP  UNDER  ATTACK!" 

550  K%(3)=K%(3) -RND(50) 

560  PRINT"SHIP  ENERGY K% ( 3 ) 

570  IP  K%(3)<1  THEN  PRINT"SHIP  DESTROY 
ED" :END 

580  POR  T=1  TO  200:NEXT  T 
590  GOTO  510 
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CUBIK 


This  program  is  a  two-dimensionai  version  of  the  cube  puzzie  invented  by  Dr. 
Rubik.  At  the  start  of  each  turn,  you'ii  see  a  flat  surface  divided  into  sixteen 
segments,  with  the  numbers  one  to  tour  arranged  on  it.  The  Cubik  is  then 
randomly  twisted,  and  your  job  is  to  restore  it  to  the  original  arrangement, 
Here's  the  key  to  twist  parts  of  the  Cubik: 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

When  you  enter  a  number,  the  appropriate  square,  plus  the  one  to  its  left,  the 
one  directly  below  it  and  the  one  below  and  to  the  left  rotate  one  position 
clockwise.  You  cannot  enter  1, 5,  9, 13, 14, 15  or  16. 


The  program  has  a  clear  structure.  Lines  50  to  21 0  set  up  the  initial  display, 
line  240  does  that  well  known  dance  The  Random  Cube  Shuffle'  and  lines  250 
to  280  accept  and  check  your  entered  moves.  Lines  280  to  320  perform  the 
twist,  and  the  subroutine  from  lines  400  prints  out  the  Cubik 


10 

F  =  0 

20 

DIM  A(4) ,B(16) 

30 

B=1 

40 

FOR  D=1  TO  4 

i 

50 

C=0 

60 

IF  B=1  THEN 

C=1 

70 

IF  B=3  THEN 

C=2 

80 

IF  B=9  THEN 

C=3 

90 

IF  B=ll  THEN  C= 

100 

B(B) =C 

110 

B(B+1) =C 

120 

B(B+4) =C 

130 

B(B+5) =C 

140 

C=0 

150 

IF  B=1  THEN 

C=2 

160 

IF  B=3  THEN 

C=6 

170 

IF  B=9  THEN 

C=2 

180 

B=B+C 

190 

NEXT  D 

60 


200  GOSUB  400 

210  PRINT: PRINT "STARTING  ARRANGEMENT" 
220  F=F+1 

230  FOR  1=1  TO  5000:NEXT  I 
240  IF  F<11  THEN  X=RND(16) 

250  IF  F>10  THEN  INPUT  X 
260  IF  X<1  OR  X>16  THEN  GOTO  240 
270  IF  X=5  OR  X=9  OR  X=1  OR  X>12  THEN 
GOTO  240 

280  A(1)=B(X) 

290  A(2)=B(X+4) 

300  A(3)=B(X+3) 

310  A(4)=B(X-1) 

320  B(X)=A(4) 

330  B(X+4)=A(1) 

340  B(X+3)=A(2) 

350  B(X-1)=A(3) 

360  GOSUB  400 

370  IF  F<10  THEN  INPUT  U$ 

380  F=F+1 
390  GOTO  240 
400  CLS 

410  PRINT: PRINT 

420  FOR  B=1  TO  16 

430  PRINT  STR$(B(B));" 

440  IF  B/4=INT(B/4)  THEN  PRINT 
450  NEXT  B 

460  IF  F<10  THEN  PRINT "TWIST  ";F 
470  IF  F>10  THEN  PRINT"MOVES  SO  FAR  "; 
F-10 

480  RETURN 
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THE  INVADER  FROM 
EPSILON  VIII 


Epsilon  VIII  has  sent  20  or  so  space  craft  to  investigate  earth  to  see  if  it  is  Ripe 
For  Subjugation.  You  have  to  defend  earth  by  hitting  the  Epsilonian  flying 
saucers.  The  'up  arrow'  key  fires  your  missile,  and  the  right  and  left  arrow  keys 
guide  it  to  the  target.  You'll  see  and  hear  the  hapless  saucers  explode  if  you're 
on  target.  A  direct  hit  gets  you  25  points,  while  a  glancing  blow  only  scores  1 0. 
The  explosion  sound  comes  from  line  240,  with  the  saucer  and  missile  being 
printed  by  line  1 80,  and  the  explosion  display  coming  from  line  230. 


10  VDU  23,224,&FF,&FF,&FF,&FF,&FF,&FF 
,&FF,&FF 

20  MODE  4 
30  *FX  4,1 
40  T=0 
50  S  =  0 
60  PROCSET 
70  P=15 

80  FOR  Z=1  TO  20 
90  H=RND(7)+5 
100  FOR  N=0  TO  29 
110  A=INKEY(0) 

120  IF  A=&89  AND  P<31  THEN  P=P+1 

130  IF  A=&88  AND  P>0  THEN  P=P-1 

140  IF  A=&8B  THEN  CF=1 

150  IF  C=0  THEN  PROCSET 

160  IF  CF=1  THEN  C=C-1 

170  CLS 

180  PRINT  TAB(N,H)  ;"*'';CHR$(224)  ;"*";T 
AB ( P , C ) ; " ^ ; 

190  IF  C=H  AND  P>=N  AND  P<N+3  THEN  GOT 
0  230 

200  NEXT  N 
210  NEXT  Z 
220  GOTO  300 

230  PRINT  TAB(N+1,H-1) ; ;TAB(N,H) ; 
**";TAB(N+1,H+1) 

240  SOUND  0,-15,14,10 
250  S=S+10 

260  IF  P=N+1  THEN  S=S+15 
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270  PRINT  TAB (0, 25 ); "SCORE  ";S; 
280  PROCSET 
290  INPUT  A$ 

300  IF  Z>=20  THEN  MODE  7:PRINT 
VER" : PRINT "YOU  SCORED  ";S:END 
310  GOTO  210 
320  DEF  PROCSET 
330  C=19 
340  C$="C" 

350  CF=0 
360  ENDPROC 


II  II 

"GAME  0 
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TOURIST  TRAP 


This  is  an  adventure  game  set  in  London.  While  it's  undenway,  you'll  find 
yourself  transported  to  many  well-known  landmarks  on  the  way  to  Buckingham 
Palace  -  your  destination.  Be  warned,  this  is  a  pretty  daft  sort  of  adventure 
program,  with  extensive  use  of  random  numbers  to  frustrate  and  bamboozle 
you.  When  you  finally  make  it  to  the  palace,  you'll  hear  a  triumphant  fanfare, 
which  is  produced  by  lines  1520  to  1600. 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 


MODE  4 

VDU  19,0,4,0,0,0 
PRINT 

PRINT, "TOURIST  TRAP" 

GOSUB  1390 
LET  X=0 
LET  S=30 
LET  W=1 

PRINT  "HERE  WE  GO  ON  A  TRIP  THROUGH" 

PRINT  , "LONDON  TOWN. . . " 

PRINT 

PRINT  "YOU  HAVE  '30,  AND  YOU'RE  TRYING" 
PRINT  "TO  GET  TO  BUCKINGHAM  PALACE" 

PRINT  "(THE  PALACE  IS  ON  FOOTPATH  10)" 

PRINT 

PRINT  "IF  YOU  GET  THERE  YOU'LL  NEED" 

PRINT  "  '35  TO  BRIBE  YOUR  WAY  IN" 

PRINT 

PRINT  , , "PRESS  RETURN" 

INPUT  A$ 

IF  A$<>""  THEN  STOP 
GOSUB  1360 

IF  W<1  AND  RND(10)>8  THEN  GOTO  1480 
IF  W<1  THEN  LET  W=1 
PRINT  "THIS  IS  FOOTPATH  ";W 
IF  W=10  THEN  GOTO  1440 

PRINT  "SO  YOU  ARE  ";10-W;"  FROM  THE  PALACE" 
PRINT 

IF  S<1  THEN  LET  S=RND(5) 

PRINT  "YOU  HAVE  '";S;"  IN  YOUR  POCKETS" 

LET  X=X+1 
PRINT 

PRINT  "THIS  IS  PROBLEM  ";X 
PRINT 

LET  K=1+RND(5) 

PRINT 

PRINT  "YOU'RE  FACING  ";K;"  "; 

LET  A=RND(4) 

IF  A=1  THEN  PRINT  "DOORS" 

IF  A=2  THEN  PRINT  "SHOPS" 
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410  IP  A=3  THEN  PRINT  "PEDESTRIAN" ,, "CROSSINGS" 

420  IP  A=4  THEN  PRINT  "TUBE  STATION" ,, "ENTRANCES" 

430  PRINT 

440  PRINT  "WHICH  ONE  WILL  YOU  USE" 

450  INPUT  B 

460  IP  B>K  OR  B<1  THEN  GOTO  450 
470  GOSUB  1360 

480  IP  RND(10)<4  OR  B=A  THEN  GOSUB  990 
490  LET  C=RND(4) 

500  IP  C=1  THEN  PRINT  "POOL 
510  IP  C=2  THEN  PRINT  "IDIOT  " ; 

520  IP  C=3  THEN  PRINT  "HELP  "; 

530  IP  C=4  THEN  PRINT  "SURPRISE  " ; 

540  PRINT  "YOU'RE  PACE  TO  PACE  WITH  A  " 

550  LET  A=RND(7) 

560  IP  A=4  THEN  PRINT  "GREEN" 

570  IP  A=5  THEN  PRINT  "BLUE" 

580  IP  A=6  THEN  PRINT  "BRIGHT  RED" 

590  IP  A=7  THEN  PRINT  "SICKLY  YELLOW" 

600  LET  A=RND(5) 

610  IP  A=1  THEN  LET  B$=  "SMILING  POLICEM2VN" 

620  IP  A=2  THEN  LET  B$= "BEWILDERED  TOURIST" 

630  IP  A=3  THEN  LET  B$= "TICKET  INSPECTOR" 

640  IP  A=4  THEN  LET  B$= "PARKING  WARDEN" 

650  IP  A=5  THEN  LET  B$="BUS  DRIVER" 

660  LET  A=RND(7) 

670  PRINT 

680  IP  A=1  THEN  LET  C$= "PARKING  TICKET" 

690  IP  A=2  THEN  LET  C$="PASS  TO  THE  TOWER" 

700  IP  A=3  THEN  LET  C$= "POSTCARD  OP  TRAPALGAR  SQUARE" 
710  IP  A=4  THEN  LET  C$="MAP  OP  CAMBRIDGE" 

720  IP  A=5  THEN  LET  C$= "MONKEY  ON  A  STICK" 

730  IP  A=6  THEN  LET  C$="PACK  OP  PISH  AND  CHIPS" 

740  IP  A=7  THEN  LET  C$= "RINGSIDE  SEAT  AT  OXPORD  CIRCUS" 
750  PRINT  B$;"  WITH  A" 

760  PRINT  C$ 

770  PRINT 

780  PRINT  "HOW  DO  YOU  REACT" 

790  PRINT 

800  PRINT"SPIT(1) ", "SWEAR( 2) ", "SCREAM  POR  HELP ( 3 ) " 

810  PRINT"POKE  AT  IT  WITH  A  STICK(4)" 

820  PRINT"SAY  YOU  DON'T  SPEAK  ENGLISH(5)" 

830  PRINT"SAY  YOU  ARE  A  STRANGER  IN  TOWN(6)" 

840  INPUT  A 

850  IP  A>10  OR  A<1  THEN  GOTO  840 
860  LET  B=RND(10) 

870  GOSUB  1360 

880  IP  RND(5)=1  OR  A<B  THEN  LET  A=B 

890  IP  A=B  THEN  PRINT  "YOU  POOLED  THE  ";B$ 

900  IP  A=B  THEN  LET  S=S+RND(10) 

910  IP  A=B  THEN  PRINT  "AND  NOW  HAVE  ‘";S 
920  IP  A=B  THEN  LET  W=W+RND(4) 

930  IP  W>10  THEN  LET  W=10 
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940  PRINT 

950  IP  NOT  A=B  THEN  PRINT  "THE 
OUTWITTED" , "YOU" 

960  IP  NOT  A=B  THEN  LET  S=S-RND(5) 

970  IP  W<10  THEN  PRINT  "YOU  ARE  CLOSE 
TO  POOTPATH  ";W 
980  GOTO  180 
990  LET  A=RND(4) 

1000  ON  A  GOSUB  1020,1110,1160,1280 
1010  GOTO  180 

1020  PRINT  , "YOU'VE  PALLEN  DOWN" 

1030  LET  B=RND(4) 

1040  IP  B=1  THEN  PRINT  "IN  PRONT  OP  BIG 
BEN" 

1050  IP  B=2  THEN  PRINT  "IN  THE  STRAND" 
1060  IP  B=3  THEN  PRINT  "IN  PRONT  OP  THE 
TRAPPIC" : PRINT "IN  PICCADILLY  CIRCUS" 
1070  IP  B=4  THEN  PRINT  RND(99);"  STEPS 
TO  THE  THAMES" 

1080  W=W-1 
1090  S=S-RND(2) 

1100  RETURN 

1110  PRINT  "YOU  ARE  CAUGHT  RIDING  ON  A" 
, "NO. ";RND(99) ; "  BUS  WITHOUT  A  TICKET" 
1120  W=W-1 
1130  S=S-RND(2) 

1140  RETURN 

1150  PRINT  , "YOU  GAIN  A" 

1160  D=RND(6) 

1170  IP  D=1  THEN  PRINT"STALE  SALAD  ROLL 

ll 

1180  IP  D=2  THEN  PRINT"TICKET  TO  THE  PL 
ANETARIUM" 

1190  IP  D=3  THEN  PRINT"GOOD  SEAT  AT  COV 
ENT  GARDEN" 

1200  IP  D=4  THEN  PRINT"TUBE  TICKET  TO  S 
HEPHERDS  BUSH" 

1210  IP  D=5  THEN  PRINT  "SEAT  UPSTAIRS  O 
N  A  ";RND(99) ; "  BUS" 

1220  IP  D=6  THEN  PRINT  "BLACK  EYE  PROM 
A  RUDE  LOCAL" 

1230  S=S+RND(5) 

1240  W=W+RND(3) 

1250  IP  W>10  THEN  W=10 
1260  RETURN 

1270  PRINT  "YOU  PIND  A  MAP  OP  LONDON" 
1280  PRINT 
1290  PRINT 

1300  PRINT  "CHOOSE  YOUR  BONUS  (UP  TO  '5 
)" 

1310  INPUT  A 

1320  IP  A>5  THEN  GOTO  1310 
1330  S=S+A 
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1340  W=W-INT(A/2) 

1350  RETURN 
1360  CLS 

1370  FOR  M=1  TO  25*RND(5) 

1380  NEXT  M 
1390  FOR  M=1  TO  5 
1400  PRINT 
1410  NEXT  M 
1420  RETURN 

1430  PRINT  "YOU  ARE  AT  THE  PALACE  GATE" 
1440  PRINT  "DO  YOU  HAVE  '35  TO  BRIBE  YO 
UR" 

1450  PRINT  "WAY  IN  PRESS  'RETURN'  TO  FI 
ND  OUT" 

1460  INPUT  A$ 

1470  GOSUB  1360 

1480  IF  S<35  AND  W>5  THEN  PRINT  "YOU  HA 
D  ONLY  '";S;"  SO  YOU'VE" , "BEEN  DEPORTED. 

(I 

1490  IF  W<1  THEN  PRINT  "YOU'VE  FAILED  A 
S  A  TOURIST. . .  AND  BEEN  BEHEADED. . . 

1500  IF  SOS  THEN  GOTO  1490 

1510  PRINT  "YES,  YOU  HAVE  '";S 

1520  SOUND  1,-10,109,10 

1530  SOUND  1, -9,117,5 

1540  SOUND  1, -9,109,5 

1550  SOUND  1, -9,105,5 

1560  SOUND  1, -10,109,5 

1570  SOUND  1, -10,97,5 

1580  SOUND  1, -10,109,8 

1590  SOUND  1, -12,117,5 

1600  SOUND  1,-12,121,10 

1610  PRINT  "THE  RED  CARPET  AWAITS  YOU.. 
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DOGFIGHT 


This  is  a  real  test  of  the  speed  of  your  reflexes.  You're  under  attack  from  all 
sides,  flying  through  an  asteroid  field  and  being  bombarded  by  unfriendly  (are 
there  any  other  kind?)  aliens.  You  have  to  shoot  down  the  aliens,  avoid  the 
asteroids,  and  make  sure  you  don't  accidentally  hit  the  other  ships  in  your  fleet. 

Here  are  the  four  shapes  you'll  see  on  the  screen; 


•  Character  227  -  a  friendly  ship 

•  Character  224  -  an  empty  space 

•  Character  226  -  an  alien  ship 

•  Asterisk  -  this  is  an  asteroid 


Hit  this,  and  you  lose  points 

Hit  this,  score  a  point 

Hit  this,  score  20  points;  miss  it  and 

you  lose  the  game 

Hit  one  and  you  score  1 0  points,  miss 
and  the  game  ends. 


10  REM  DOGFIGHT 
20  *FX  11,1 
30  *FX  12,1 
40  MODE  4 
50  S=0 
60  T=0 

70  VDU  23, 224,&FF,&FF,&FF,&FF,&FF,&FF 
,&FF,&FF 

80  VDU  23, 225,&00,&00,&00,&00,&7E,&00 

,&00,&00 

90  VDU  23, 226,&18,&3C,&66,&DB,&DB,&66 
,&3C,&18 

100  VDU  23, 227,&7E,&FF,&FF,&FF,&E7,&E7 
,&E7,&E7 

110  CLS :PRINT"YOUR  MISSION  IS  TO  SHOOT 
ENEMY  SHIPS,  OR  ASTEROIDS,  YOU  MUST  N 
OT  SHOOT  FRIENDLY  SHIPS. 

THIS  IS  A  FRIENDLY  SHIP: 

.  II 

120  PRINT: PRINT  CHR$(227) 

130  PRINT  "THIS  IS  AN  ALIEN  SHIP:-" 

140  PRINT: PRINT  CHR$(226) 

150  PRINT"THIS  IS  AN  ASTEROID:-" 

160  PRINT: PRINT 

170  FOR  Z=1  TO  5000:NEXT  Z 

180  CLS 

190  FOR  Z=10  TO  18 

200  PRINT  TAB(Z,5) ;CHR$(224) :NEXT  Z 
210  PRINT  TAB(10, 6) ;CHR$(224) ;TAB(14, 6 
) ;CHR$(225) ; TAB ( 18 , 6 ) ;CHR$ ( 224 ) 

220  PRINT  TAB(10,7) ;CHR$(224) 
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230  FOR  Z=12  TO  16 

240  PRINT  TAB(Z,7) ;CHR$(225) 

250  NEXT  Z 

260  PRINT  TAB(18,7) ;CHR$(224) 

270  PRINT  TAB(10,8);CHR$(224);TAB(14,8 
) ;CHR$(225) ; TAB ( 18 , 8 ) ;CHR$ ( 224 ) 

280  FOR  Z=10  TO  18 

290  PRINT  TAB(Z,9) ;CHR$(224) 

300  NEXT  Z 

310  R=INT(RND(4) ) 

320  T=T+1 

330  IF  T=5000  THEN  GOTO  520 
340  IF  R<2  THEN  A$=CHR$(224) 

350  IF  R=2  THEN  A$=CHR$(226) 

360  IF  R=3  THEN  A$="*" 

370  IF  R=4  THEN  A$=CHR$(227) 

380  PRINT  TAB(14,7);A$ 

390  Z=1 

400  B$=INKEY$(0) 

410  *FX  15,0 
420  Z=Z+1 

430  IF  B$="I"  THEN  PROCZAPiGOTO  450 
440  IF  Z<100  THEN  GOTO  400 
450  IF  R<2  THEN  S=S+1 

460  IF  R=4  AND  B$="I"  THEN  S=0:GOTO  49 

0 

470  IF  (R=3  AND  B$<>"I")  THEN  GOTO  520 

480  IF  R=2  THEN  S=S+10 

490  PRINT  TAB (4, 20) /"SCORE  ";S;" 

500  PRINT  TAB(14,7) ;CHR$(225) 

510  GOTO  310 

520  PRINT  "GAME  OVER -YOU  SCORE  ";S 
530  IF  S<10  THEN  PRINT  "YOU  ARE  DEMOTE 
D  TO  FLOOR  WASHER" 

540  IF  S>100  PRINT  "WELL  DONE -YOU  HAVE 
WON  THEN  G.E.M. (GALACTIC  EMPIRE  MEDAL)" 
550  *PX  12,0 
560  END 

570  DEF  PROCZAP 
580  SOUND  1,  -15,12,20 
590  ENDPROC 
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SKI  RUN 


It's  just  like  a  very  crummy  postcard  from  St.  Moritz.  When  you  run  the 
program,  a  white  ski  slope  appears  edged  with  fir  trees,  and  with  gates  on  it 
from  the  top  to  the  bottom.  The  skier  is  shown  at  the  top  of  the  slope  and  you 
have  to  guide  him  down  the  slope,  getting  through  as  many  games  as  possible. 
Each  gate  you  successfully  navigate  gains  you  points,  while  hitting  a  gate  post 
costs  you  points.  Hitting  a  tree  brings  the  game  and  your  career  as  a  skier  to 
an  abrupt  end.  The  gates  further  down  the  course  have  higher  points  than 
those  at  the  top.  There  is  no  penalty  for  missing  out  a  gate.  SKI  RUN  Is  based 
on  a  program  by  Alastair  Gourlay. 

10  REM  SKIRUN 

20  VDU  23,224,&3C,&3C,&3C,&3C,&3C,&3C 
,&3C,&3C 

30  VDU  23,225,&00,&30,&78,&36,&3C,&38 
,&30,&66 

40  VDU  23,226,&00,&00,&00,&7E,&7E,&00 

,&00,&00 

50  VDU  23,227,&10,&18,&3C,&7E,&FF,&18 
,&18,&18 

60  MODE  4 

70  VDU  19,0,7,0,0,0 

80  VDU  19,1,2,0,0,0 

90  *FX  4,1 
100  *FX  11,1 
110  *FX  12,1 
120  P=ll 
130  T=0 

140  FOR  Y=3  TO  27  STEP  3 
150  X=RND(9)+6 

160  PRINT  TAB(X,Y) ;CHR$(224) ;CHR$(226) 
;CHR$(226) ;CHR$(224) 

170  NEXT  Y 

180  FOR  G=1  TO  30 

190  S=RND(1) 

200  IF  S>.5  THEN  S=16+RND(6)  ELSE  S=6- 
RND ( 5 ) 

210  T=RND(27) 

220  PRINT  TAB(S,T) ;CHR$ (227) 

230  NEXT  G 

240  FOR  Y=0  TO  27 

250  A=INKEY(0) 
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260  *FX  15,0 
270  IF  A=&88  THEN  P=P-1 
280  IF  A=&89  THEN  P=P+1 
290  IF  P>19  THEN  P=19 

300  IF  ?FNS(P,Y,4)=&FF  THEN  PRINT  TAB( 
5, 28); "YOU  CRASHED" : GOTO  370 

310  IF  ?FNS(P,Y,4)=&7E  THEN  T=T+X 
320  IF  ?FNS(P,Y,4)=&3C  THEN  T=T-X 
330  PRINT  TAB(P, Y) ;CHR$ (225) 

340  FOR  Z=1  TO  300:NEXT  Z 
350  PRINT  TAB(P,Y);"  " 

360  NEXT  Y 

370  PRINT  TAB(5,29) ; "YOU  SCORED  ";T 


380 

FOR 

Z=1  TO  1000:NEXT  Z 

390 

*FX 

4,0 

400 

*FX 

12,0 

410 

CLS 

420 

VDU 

20 

430 

END 

440 

DEF 

FNS(X, Y,N) =HIMEM+ ( Y*40+X)*8+N 
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MOONLANDER 


No  collection  of  computer  games  would  be  complete  without  a  moon  landing 
program.  You  are  on  course  for  the  moon  in  this  program,  and  your  automatic 
landing  instruments  have  failed.  You  have  to  land  on  manual,  making  your  own 
decisions  based  on  the  Information  fed  to  you  by  your  Instrument  panel.  You're 
told  of  your  height  above  the  lunar  surface,  your  speed,  and  the  amount  of 
remaining  fuel.  You  control  your  thrust  level.  If  you  employ  a  high  level  of  thrust 
you  may  actually  'fly  off  the  screen'  but  you  can  easily  drift  down  again  by 
allowing  the  weak  iunar  gravity  to  work  on  you. 

10  REM  MOONLANDER 

20  DEF  FNR(X)=INT(X*1000)/1000 

30  MODE  4 

40  VDU  23,224,&08,&1C,&1C,&1C,&1C,&3E 
,&7F,&7F 

50  VDU  19,0,4,0,0,0 
60  A=-20-RND(l)*60:REM  VELOCITY 
70  B=1200+RND(380) :REM  HEIGHT 
80  C=320+RND(90) :REM  FUEL 
90  CLS 

100  X=RND(12) 

110  N=ABS(18-B/100) 

120  PRINT  TAB (1, 18) "HEIGHT  ";FNR(B),"V 
ELOCIT Y  " ; FNR ( A ) , , " FUEL  " ; FNR ( C ) ; "  " 

130  PRINT  TAB(1, 17) "================== 


140  Y=17-B/100 

150  PRINT  TAB(X, Y) ;CHR$ (224) 

160  FOR  Z=1  TO  3000:NEXT  Z 

170  PRINT  TAB(1,2) ;STRING$(20, "  ") 

180  INPUT  TAB (1,21) "THRUST  ",T 

190  SOUND  0,-15,7,10 

200  SOUND  1, -1,T*10, 1 

210  IF  T>C  THEN  T=0 

220  C=C-T 

230  B=B+A+ (T-5)/2 

240  A=A+(T-5)/2 

250  PRINT 

260  IF  B>24  AND  C>1  THEN  PRINT  TAB(X,Y 
)"  ":GOTO  120 

270  IF  C<1  AND  B>100  THEN  GOTO  310 
280  IF  ABS(B)<20  AND  ABS(A)>15  THEN  PR 
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INT  "YOU  HAVE  LANDED  SAFELY": GOTO  320 
290  IF  C>1  THEN  GOTO  310 
300  PRINT  "YOU  HAVE  RUN  OUT  OF  FUEL" 
310  PRINT  "CRASHED  AT  " ; FNR ( ABS ( A) ) ; " 
MPS 

320  VDU  20 
330  PRINT 

340  INPUT  "Another  Game  Y/N",A$ 

350  A$=LEFT$(A$,1) 

360  IF  A$="Y"  THEN  RUN 

370  PRINT  "BYE . " 

380  STOP 
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BIORHYTHMS 


According  to  some  authorities,  our  iives  are  not  governed  by  the  stars,  but  by  a 
series  of  cycles  which  begin  at  birth,  and  continue  throughout  our  lives.  The 
three  cycles  which  have  been  identified  are: 

PHYSICAL  -  a  23-day  cycle  related  to  endurance,  aggressiveness  and 
strength 

EMOTIONAL  -  a  28-day  cycle  related  to  emotions  (temper,  moodiness, 
optimism) 

MENTAL  -  a  33-day  cycle  related  to  reasoning  and  common  sense 

Because  each  of  the  cycles  is  a  different  length,  you  can  be  'high'  on  one  and 
'low'  on  another  at  the  same  time.  This  explains  why  you  can  be  very  clumsy 
on  some  days  when  you're  feeling  mentally  alert,  and  completely  tongue-tied 
on  another  day  when  you're  fit  enough  to  climb  to  the  top  of  Nelson's  Column. 
There  are,  however,  rare  occasions  when  all  the  peaks  co-incide,  and 
everything  is  in  your  favour.  If  all  the  lows  hit  at  the  same  time,  you  may  want 
to  stay  in  bed. 

The  computer  will  ask  you  for  your  date  of  birth  (to  be  entered  in  this  order  - 
year,  month,  day)  and  the  date  for  which  you  want  a  forecast  (again  this  must 
be  entered  as  year,  month,  day).  The  computer  will  then  tell  you  the  worst  point 
on  each  cycle  in  relation  to  the  date  you've  chosen.  If  it  says  the  worst  point 
was  '-5  days'  from  the  selected  date,  this  is  BBC  Micro  jargon  for  five  days 
before'  the  date  in  question. 

10  REM  BIORHYTHMS 
20  Y$="THE  WORST  DAY  IS  " 

30  X$="  CYCLE" 

40  CLS 

50  PRINT: PRINT: PRINT 

60  INPUT  "PLEASE  ENTER  YOUR  DATE  OF  B 
IRTH  (Y,M,D)  "  Y,M,D 

70  GOSUB  450 
80  J=BD 

90  INPUT  "DATE  FOR  FORECAST  (Y,M,D)", 

Y,M,D 

100  Z=Y 

110  GOSUB  450 
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120 

G=Y- J 

130 

C=23 

140 

PRINT 

150 

PRINT 

"PHYSICAL" ;X$ 

160 

PRINT 

Y$ 

170 

GOSUB 

330 

180 

C=28 

190 

PRINT 

200 

PRINT 

"EMOTIONAL" ;X$ 

210 

PRINT 

Y$ 

220 

GOSUB 

330 

230 

C=33 

240 

PRINT 

250 

PRINT 

" INTELLECTUAL " ; X$ 

260 

PRINT 

Y$ 

270 

GOSUB 

330 

280 

PRINT 

290 

INPUT" 

'DO  YOU  WANT  TO  TRY  ANOTHER  D 

ATE  (Y/N)",A$ 

300  A$=LEFT$ (A$, 1) 

310  IF  A$="Y"  THEN  GOTO  40 
320  STOP 

330  REM  THIS  CALCULATES  POINT  IN  CYCLE 
340  T=0 

350  F=G-INT(G/C)*C 
360  IF  F>C/2  THEN  H=C-F:GOTO  380 
370  IF  F=0  OR  C/2=F  THEN  PRINT  "TODAY" 
: RETURN 

380  H=C/2-F 
390  H=INT(H) 

400  IF  H=0  THEN  PRINT  " TODAY ": RETURN 
410  PRINT  "AFTER  ";H;"  DAYS" 

420  RETURN 

430  PRINT  X;"0/0" 

440  RETURN 

450  REM  THIS  CALCULATES  THE  TIME  IN  DA 
YS 

460  T=0 

470  IF  M-3>=0  THEN  B=B+l:GOTO  510 
480  IF  T=2  THEN  B=B+1 
490  Y=Y-1 
500  B=B+13 

510  BD=INT(Y*365.25)+INT(M*30.6)+D 
520  RETURN 
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BOMBRUN 


You  are  the  daring  pilot  of  a  fast,  low-flying  bonnber.  Your  task  is  to  blast  tanks 
to  bits  as  you  swoop  over  them.  As  you'll  see,  you  have  to  choose  your 
moment  well.  You  only  carry  a  single  bomb  on  each  run,  so  you  have  to  do  all 
you  can  to  ensure  it  gets  its  target  Press  any  key  to  release  the  bomb.  Line  30 
sets  the  background  colour  to  blue,  and  260  resets  it  to  black,  so  the  normal 
screen  display  is  restored  once  you've  finished  the  game.  You'll  hear  a  natty 
little  explosion  (line  380)  when  you  demolish  one  of  the  targets.  BOMBRUN  is 
based  on  a  program  by  Alastair  Gourlay. 

10  REM  BOMB -RUN 

20  MODE  4 

30  VDU  19,0,4,0,0,0 

40  VDU  23,224,&C0,&61,&33,&7F,&FF,&0C 
,&06,&03 

50  VDU  23,225,&06,&0C,&18,&3C,&3C,&7E 
,&FF,&7E 

60  H=0 

70  FOR  B=1  TO  5 

80  CLS 

90  R=INT(RND(1)*20) 

100  PRINT  TAB(R,20) ;CHR$(225) ;TAB(0,21 


_  _  II 

110  FOR  X=31  TO  0  STEP  -1 
120  PRINT  TAB(X, 15) ;CHR$ (224) 

130  FOR  Z=1  TO  30:NEXT  Z 
140  Y=0 

150  A$=INKEY$(0) 

160  *FX  15,0 

170  FOR  Z=1  TO  30:NEXT  Z 

180  IF  Y=0  AND  A$<>""  THEN  Y=15 

190  PRINT  TAB(17,2);"SC0RE:";H;'7";B-1 

200  IF  YOO  THEN  GOTO  330 

210  PRINT  TAB(X,15);"  " 

220  NEXT  X 

230  PRINT  TAB(17,2) ;"SCORE: ";H;'7";B 

240  FOR  Z=1  TO  1000:NEXT  Z 

250  NEXT  B 

260  VDU  20 

270  PRINT 

280  INPUT  TAB (10, 25) "Another  Game  Y/N 
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",A$ 

290  A$=LEFT$(A$,1) 

300  IF  A$="Y"  THEN  RUN 

310  PRINT  "BYE _ " 

320  STOP 

330  FOR  Z=Y+1  TO  20 
340  PRINT  TAB(X,Z);"." 

350  FOR  Q=1  TO  50: NEXT  Q 
360  PRINT  TAB(X,Z);"  " 

370  NEXT  Z 

380  IF  (X=R)  THEN  H=H+l;SOUND  0,-15,12 
,15 

390  IF  Y<20  THEN  GOTO  230 
400  GOTO  210 


77 


MINIVADERS 


The  alien  forces  are  attacking  (have  they  nothing  better  to  do?)  and  you  alone 
(again!)  have  to  hold  out  against  them  long  enough  for  a  counter  attack  to  be 
launched.  If  you  cannot  do  this,  the  whole  race  is  doomed.  The  invaders  come 
at  you  from  the  ieft,  foilowing  a  fixed  path  across  the  top  of  the  screen.  Your 
vertical  position  is  aiso  fixed,  but  you  can  move  to  the  left  or  right  (using  the 
arrowed,  cursor  keys)  in  order  to  fire  your  iasers  (which  you  do  by  pressing  the 
'up  arrow'  key).  The  time  you've  survived  is  shown  ai!  through  the  game,  if  you 
fail  to  hit  an  invader  within  a  certain  period  you  (not  to  mention  'the  whoie  race' 
will  perish,  so  be  ready  to  start  firing  as  soon  as  they  appear. 

10  REM  MINIVADERS 

20  VDU  23,224,&00,&18,&3C,&7E,&FF,&FF 
,&FF,&FF 

30  VDU  23,225,&3C,&7E,&FF,&FF,&C3,&C3 
,&C3,&C3 

40  REM  INITIALISE  VARIABLES 

50  C$="  " 

60  *FX  4,1 

70  MODE  4 

80  VDU  19,0,4,0,0,0 

90  *FX  12,1 
100  *FX  11,1 
110  Q=1 
120  S=25 
130  P=16 
140  L=1 

150  FOR  Z=1  TO  33 

160  PRINT  TAB(Z, 18) ; " - " 

170  NEXT  Z 

180  A$=CHR$(225)+"  " +CHR$ ( 225 ) + "  "+C 

HR$(225)+"  "+CHR$(225)+"  " +CHR$ ( 225 ) + " 

"+CHR$ (225) +"  "+CHR$(225)+"  "+CHR$(2 

25)+"  "+CHR$(225)+"  " +CHR$ ( 225 ) + "  " 

190  IF  S/L>50  THEN  GOTO  250 

200  FOR  Z=0  TO  35 

210  PRINT  TAB(Z,L);"  " 

220  NEXT  Z 
230  L=L+1 

240  IF  L>14  THEN  GOTO  410 
250  Q=INSTR(A$,CHR$(225) ) 

260  IF  Q=0  THEN  GOTO  410 
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270  PRINT  TAB(0,L) ;A$;TAB(P, 17) ;CHR$(2 
24) 

280  FOR  Z=1  TO  1000:NEXT  Z 
290  A=INKEY(0) 

300  *FX  15,0 

310  IF  A=&8B  THEN  PROCSHOOT( Y,L,X,P) :G 
OTO  190 

320  PRINT  TAB (P, 17);"  " 

330  IF  A=&89  AND  P<31  THEN  P=P+1 
340  IF  A=&88  AND  P>1  THEN  P=P-1 
350  A$=RIGHT$(A$,29)+LEFT$(A$,1) 

360  PRINT  ' ' 'S 
370  S=S-1 

380  IF  S>0  THEN  GOTO  190 
390  Q=1 

400  PRINT  "YOUR  TIME  RAN  OUT" 

410  IF  Q=0  THEN  PRINT; "YOU  WON" 

420  PRINT  "YOU  SCORED  ";S 

430  *FX  4,0 

440  *FX  12,0 

450  VDU  20 

460  END 

470  DEF  PROCSHOOT(Y,L,X,P) 

480  X=P 

490  FOR  Y=16  TO  L  STEP  -1 
500  PRINT  TAB(X,Y);"." 

510  FOR  V=1  TO  lOOOrNEXT  V 
520  PRINT  TAB(X,Y);"  " 

530  NEXT  Y 

540  B$=MID$ (A$,X+1, 1) 

550  IF  B$="  "  THEN  GOTO  600 

560  SOUND  0, -15,14,20 

570  A$=LEFT$ ( A$ , X) +C$+MID$ ( A$ , X+2 ) 

580  S=S+10 

590  IF  RND(1)>.8  THEN  S=S+50 
600  ENDPROC 
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DODGEMS 


Collide  with  as  many  other  racing  cars  on  the  track  as  you  can.  You  are  the 
solid-looking  racing  car,  while  the  others  are  a  little  insubstantial.  Use  the  right 
and  left  arrow  keys  to  steer.  The  two  graphics  characters,  your  racing  car  (225) 
and  the  other  cars  (224)  are  defined  in  lines  60  and  70.  The  colours  are  set  in 
the  next  two  iines.  The  crash  sound  comes  from  iine  420 

10  REM  DODGEM 
20  MODE  4 
30  *FX  4,1 
40  *FX  12,1 
50  *FX  11,1 

60  VDU  23,224,&E7,&A5,&FF,&24,&24,&FF 
,&A5,&E7 

70  VDU  23,225,&E7,&E7,&FF,&3C,&3C,&FF 
,&E7,&E7 

80  VDU  19,1,4,0,0,0 
90  VDU  19,0,3,0,0,0 
100  VDU  28,0,25,30,0 
110  H=0 
120  P=5 

130  FOR  1=1  TO  25 
140  PRINT  TAB (15);" I" 

150  NEXT  I 

160  FOR  1=1  TO  100 

170  IF  I>75  THEN  GOTO  220 

180  IF  RND(1)>.5  THEN  GOTO  220 

190  A=INT(P*RND(5) -2) 

200  IF  A<0  OR  A>14  THEN  A=INT ( RND ( 15 ) ) 

210  PRINT  TAB(A,25) ;CHR$(224) ; 

220  PRINT  TAB(P,5);"  " ;TAB ( 15 , 25 ) ; " | " 

230  A=INKEY(0) 

240  *FX  15,0 
250  IF  A=&88  THEN  P=P-1 
260  IF  A=&89  THEN  P=P+1 
270  IF  P>14  THEN  P=14 
280  IF  P<0  THEN  P=0 

290  IF  ?FNS(P,5,0)=&E7  THEN  GOTO  410 
300  PRINT  TAB(P, 5) ;CHR$ (225) 

310  FOR  Z=1  TO  100;NEXT  Z 
320  NEXT  I 

330  PRINT "YOU  SCORED  " ;  H 
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340  *FX  4,0 
350  *FX  12,0 

360  INPUT  "ANOTHER  GAME  Y/N  ",A$ 

370  IF  LEFT$(A$,1)="Y"  THEN  RUN 
380  VDU  20 
390  VDU  26 
400  STOP 

410  PRINT  TAB(P, 4) ; "***" 

420  SOUND  0, -15,14,20 
430  FOR  Z=1  TO  90:NEXT  Z 
440  H=H+1 
450  GOTO  170 

460  DEF  FNS{X,Y,N)=HIMEM+(Y*40+X)*8+N 
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COVERUP 


The  object  of  this  game  is  to  prevent  the  enemy  from  bombing  the  lower  of  two 
strips  that  appear  on  the  screen.  Two  types  of  plane  fly  overhead.  The  white 
plane  is  harmless,  but  the  inverse  graphics  craft  is  a  bomber.  Where  a  bomb 
hits  you  are  left  'uncovered'  as  you'll  see  when  you  run  the  program.  Unless 
you  can  recover  the  bombed  area  -  using  the  arrowed  cursor  keys-  before  the 
next  black  plane  arrives,  you'll  be  destroyed.  At  the  end  of  the  game  you'll  be 
told  how  long  you've  survived. 

10  REM  COVERUP 

20  MODE  4 

30  VDU  19,0,4,0,0,0 

40  *FX  4,1 

50  VDU  23,224,&FF,&FF,&FF,&FF,&FF,&FF 
,&FF,&FF 

60  VDU  23,225,&3F,&9E,&CC,&80,&00,&FE 
,&F9,&FC 

70  VDU  23,226,&C0,&61,&33,&7F,&FF,&0C 
,&06,&03 

80  VDU  23,227,&AA,&55,&AA,&55,&AA,&55 
, & AA , &  5  5 

90  T=0 

100  FOR  Z=0  TO  30 

110  PRINT  TAB(Z,20) ;CHR$(224) 

120  NEXT  Z 

130  PRINT  TAB(1,20) ;CHR$(227) 

140  FOR  Z=0  TO  30 

150  PRINT  TAB(Z,21) ;CHR$(227) 

160  NEXT  Z 
170  P=T 
180  E=T 

190  A$=CHR$(225) 

200  T=T+1 

210  PRINT  TAB(E,3);"  " 

220  IF  E=31  THEN  E=0 
230  IF  A$=CHR$(225)  THEN  GOTO  270 
240  IF  ?FNS(E,20,7)=&00  THEN  GOTO  360 
250  IF  RND(1)<.2  THEN  A$=CHR$(225) 

260  PRINT  TAB (E, 20);"  " 

270  E=E+1 

280  PRINT  TAB(E,3);A$ 

290  IF  RND(1)<.2  THEN  A$=CHR$(226) 
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300  PRINT  TAB(P,20) ;CHR$(224) 

310  A=INKEY(0) 

320  IF  A=&88  THEN  P=P-1 

330  IF  A=&89  AND  P<31  THEN  P=P+1 

340  PRINT  TAB(P,20) ;CHR$(227) 

345  FOR  N=0TO200:NEXT 
350  GOTO  200 

360  PRINT  TAB(0, 5) ; "YOU  WERE  DESTROYED 

370  PRINT  "YOU  SURVIVED  FOR  ";T;"  TIME 
UNITS " 

380  *FX  4,0 
390  VDU  20 
400  END 

410  DEF  FNS(X,Y,N)=HIMEM+(Y*40+X)*8+N 
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ZOMBIE  ISLAND 


You  are  on  a  small  Island,  surrounded  by  zombies.  Your  only  escape  is  to  lure 
them  into  swamps.  The  zombies  are  biind  so  they  don't  see  the  danger  of  the 
swamps.  You  would  be  advised  to  avoid  the  swamps  as  weii. 

At  the  start  of  the  game,  you'ii  see  yourself  -  the  man  figure  -  somewhere  near 
the  centre  of  the  board.  The  zombies  are  the  black  beasties  and  the  swamps 
are  shimmering  squares.  The  border  is  made  up  of  swamp  iand,  which  will 
swallow  up  any  zombie  uniucky  enough  to  stray  onto  it.  Use  the  four  cursor 
keys  to  move  around  the  board,  trying  to  lure  the  zombies  into  the  swamps. 
You  have  two  moves  for  every  one  of  their  moves. 

The  man  shape  is  defined  as  character  227  in  line  90,  the  zombie  shape  is 
defined  in  line  100  (character  226)  and  line  80  produces  the  shimmering 
square.  The  procedure  PROGZOMB  moves  the  zombies. 

10  REM  ZOMBIE 
20  X=RND(-TIME) 

30  S=0 

40  DIM  X(21) 

50  DIM  Y(21) 

60  MODE  4 

70  VDU  23, 224,&FF,&FF,&FF,&FF,&FF,&FF,&FF,&FF 
80  VDU  23, 225,&AA,&55,&AA,&55,&AA,&55,&AA,&55 
90  VDU  23, 227,&E7,&E7,&81,&E7,&C3,&99,&99,&FF 
100  VDU  23, 226,&C7,&00,&00,&00,&55,&55,&FF,&FF 
110  *FX4,1 
120  CLS 

130  FOR  Z=1  TO  20 

140  PRINT  TAB(Z,0) ;CHR$(225) 

145  NEXT  Z 

150  FOR  1=1  TO  23 

160  PRINT  TAB(1,I) ;CHR$(225) 

170  FOR  Z=2  TO  19 

180  PRINT  TAB(Z,I) ;CHR$(224) 

190  NEXT  Z 

200  PRINT  TAB(20,I) ;CHR$(225) 

210  NEXT  I 

220  FOR  Z=  1  TO  20 

230  PRINT  TAB(Z,I) ;CHR$(225) 

240  NEXT  Z 

250  FOR  1=1  TO  42 

260  A=I/21 

270  PROGZOMB (I, A) 

280  IP  INT(A)=1  THEN  J=I - 21 :X ( J) =X : Y ( J) =Y 
290  NEXT  I 
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300  X(21)=X:Y(21)=Y 
310  X=RND(4)+8 
320  Y=RND(5)+9 
330  U=X 
340  V=Y 

350  PRINT  TAB(X,Y) ;CHR$(227) 

360  FOR  Q=1  TO  2 
370  A=INKEY(0) 

380  IP  A=-l  THEN  GOTO  370 
390  *FX  15,0 

400  IF  A=&8A  AND  V<20  THEN  V=V+1 
410  IF  A=&88  AND  U>1  THEN  U=U-1 
420  IF  A=&89  AND  U<20  THEN  U=U+1 
430  IF  A=&8B  AND  V>1  THEN  V=V-1 
440  PRINT  TAB(X,Y) ;CHR$(224) 

450  X=U:Y=V 

460  PRINT  TAB(X,Y) ;CHR$(227) 

470  NEXT  Q 

480  FOR  1=1  TO  21 

490  IF  X(I)=0  THEN  GOTO  620 

500  PRINT  TAB(X(I) ,Y(I) ) ;CHR$(224) 

510  W=0 

520  IF  X(I)-U<>0  THEN  W= (X ( I ) - U ) /ABS ( X ( I ) - U) 
530  T=0 

540  IF  Y(I)-V<>0  THEN  T= ( Y( I ) - V) /ABS ( Y( I ) - V) 

550  X(I) =X(I) -W 

560  Y(I) =Y(I) -T 

570  D=?FNS(X(I) ,Y(I) ,0) 

580  PRINT  TAB(X(I) , Y(I) ) ; 

590  IF  D=&AA  THEN  X(I)=0:S=S+1 

600  IF  D=&E7  THEN  GOTO  650 

610  IF  X(I)<>0  THEN  PRINT  CHR$(226) 

620  NEXT  I 

630  IF  S=21  THEN  PRINT  TAB ( 1 , 25 ) "YOU  G 
OT  THE  ZOMBIES" :GOTO  670 
640  GOTO  330 

650  PRINT  TAB(X,Y) ;CHR$(226) 

660  PRINT  TAB (1, 24) "THE  ZOMBIES  GOT  YO 
U" 

670  *PX  4,0 
680  END 

690  DEP  PROCZOMB(Q,F) 

700  X=10+(SGN(RND(1) - . 5 ) * (RND ( 5*F ) +4 ) ) 

710  IP  X<2  OR  X>19  THEN  GOTO  700 
720  Y=10+(SGN(RND(1) - . 5 ) * (RND ( 7*F ) +4 ) ) 

730  IP  Y<2  OR  Y>20  THEN  GOTO  720 
740  IP  P<=1  THEN  PRINT  TAB (X, Y) ; CHR$ ( 2 
25) :GOTO  760 

750  PRINT  TAB(X,Y) ;CHR$(226) 

760  ENDPROC 

770  DEP  PNS(X,Y,N)=HIMEM+(Y*40+X)*8+N 
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PONTOON 


Pontoon  is  a  popular  card  game,  and  this  simplified  Beeb  version  is  just  as 
compelling  to  play  as  is  the  full-size  game.  The  object  of  the  game  is  to  get  a 
total  as  close  as  possible  to  -  without  exceeding  -  21  .  You  'bust'  if  you  go  over 
21. 

You  have  first  move.  The  computer  tells  you  the  value  of  your  first  card,  and 
you  have  to  decide  whether  to  accept  another  card  -  Twist'  -  or  stay  as  you 
are  -  'Stick'.  If  your  total  exceeds  21  before  you  stick,  the  computer  will 
terminate  the  round,  telling  you  You  are  bust'.  Once  you've  decided  to  stick, 
the  computer  will  deal  its  own  hand.  Ace  can  either  be  high  (when  it  counts  as 
11)  or  low  (counting  as  one).  If  counting  the  Ace  as  11  will  cause  a  bust,  the 
computer  will  automatically  count  It  as  one.  Picture  cards  (Jack,  King,  Queen) 

10  REM  PONTOON 
20  MODE  4 

30  VDU  19,0,4,0,0,0 

40  VDU  19,1,3,0,0,0 

50  B=1 

60  H=0 

70  C=0 

80  A=0 

90  CLS 

100  PRINT  ' ' 

110  PRINT  "YOU" 

120  H=FNDEAL(X,B,H) 

130  IF  H>21  THEN  GOTO  290 
140  FOR  Z=1  TO  lOOrNEXT  Z 
150  PRINT; "DO  YOU  WANT  TO  TWIST  OR  STI 
CK?  T/S" 

160  B$=INKEY$(1000) 

170  IF  B$="T"  THEN  GOTO  120 
180  IF  B$<>"S"  THEN  GOTO  150 
190  PRINT  "YOU  HAVE  ";H 
200  PRINT  "MY  TURN" 

210  A=0 

220  FOR  Z=1  TO  1000:NEXT  Z 
230  C=FNDEAL(X,B,C) 

240  FOR  Z=1  TO  1000:NEXT  Z 
250  IF  021  THEN  GOTO  320 
260  IF  C<H  THEN  GOTO  220 
270  PRINT  "I  WIN  WITH  ";C 
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280  GOTO  430 

290  PRINT  "YOU  ARE  BUST" 

300  SOUND  0,-10,12,5 

310  GOTO  430 

320  PRINT  "I  AM  BUST" 

330  GOTO  430 

340  DEF  FNDEAL(X, Y,V) 

350  X=INT(RND(13) ) 

360  X$=MID$ ( "A23456789TJQK" ,X, 1) 
370  PRINT  X$ 

380  IF  X>10  THEN  X=10 
390  IF  X>1  THEN  GOTO  420 
400  X=ll 

410  IF  V+X>21  THEN  X=1 
420  =V+X 

430  PRINT  "ANOTHER  GAME  ?" 

440  A$=INKEY$(0) 

450  IF  A$="Y"  THEN  RUN 
460  IF  A$="N"  THEN  STOP 
470  GOTO  440 
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ZAP 


The  BBC  Micro  shows  with  this  program  how  a  simple  game  can  be  enriched 
by  an  impressive  display  which  takes  advantage  of  the  graphics,  coiour  and 
sound  possibilities  of  the  computer.  The  aim  of  the  game  is  to  zap  the  invaders 
coming  towards  you.  Your  ever-watchfui  BBC  Micro  launches  a  missile  at  each 
invader,  but  it  is  up  to  you  to  guide  the  missile  to  Its  target  You  do  this  with  the 
cursor  keys.  Ten  invaders  wiii  be  iaunched  at  you,  and  at  the  end  of  the  game 
you'ii  be  told  how  many  you  stopped,  and  how  many  got  through  your  defences 
to  land  on  earth. 

The  background  colour  is  set  to  biue  in  line  60.  Lines  30  to  50  define  the 
graphics  for  the  game,  with  character  226  for  the  enemy  ships,  225  for  the 
missiie  iauncher,  and  230  for  the  missiies.  Line  20  turns  off  the  cursor.  Lines 
360  and  470  control  the  sound  output  of  the  game. 

10  MODE  4 

20  VDU  23;&200A;0;0;0; 

30  VDU  23,230,&18,&18,&18,&18,&3C,&7D 
,&3C,&18 

40  VDU  23,226,&3C,&7E,&FF,&E7,&E7,&E7 
,&E7,&E7 

50  VDU  23,225,&18,&18,&18,&18,&18,&3C 
,&7E,&FF 

60  VDU  19,0,4,0,0,0 

70  *FX  4,1 

80  *FX  12,1 

90  *FX  11,1 
100  S=0 
110  M=14 

120  FOR  Z=1  TO  10 
130  C=20 

140  R=RND(RND(1)*3) 

150  P=13-(12  AND  R=0)+(12  AND  R=2)+INT 
(RND(1)*5) 

160  FOR  X=1  TO  30 
170  PRINT  TAB(X,22) 

180  NEXT  X 
190  FOR  H=4  TO  21 
200  IF  R=0  THEN  P=P+1 
210  IF  R=2  THEN  P=P-1 
220  A$=INKEY$(0) 
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230  *FX  15,0 

240  FOR  1=1  TO  50:NEXT  I 
250  A=INKEY(0) 

260  *FX  15,0 
270  IF  A=&88  THEN  M=M-1 
280  IF  A=&89  THEN  M=M+1 
290  N=M-1 :Q=P-1 

300  PRINT  TAB(N,21) ;CHR$(225) ;TAB(Q,H) 
;CHR$ (226) ;TAB(M,C) ;CHR$ (230) 

310  FOR  1=1  TO  100:NEXT  I 
320  IF  C=H  AND  (M>P-2)  AND  (M<P+2)  THE 
N  GOTO  440 

330  PRINT  TAB(N,21);"  " ; TAB ( Q, H) ; "  ";T 
AB(M,C);"  " 

340  C=C-1 
350  NEXT  H 

360  SOUND  0, -15,12,15 
370  CLS 
380  NEXT  Z 

390  PRINT  TAB(10,4);"LANDED:";10-S,"ST 
OPPED : " ; S 

400  *FX  4,0 
410  *FX  12,0 
420  VDU  20 
430  STOP 
440  S=S+1 
450  G=H-1 

460  PRINT  TAB(P,G) ;TAB(P) ;"***" ;TA 
B  ( P  )  ;  "  *  " 

470  SOUND  0, -15,14,20 
480  C=20 
490  GOTO  370 
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JOCKEY 


As  you  gallop  down  the  home  straight,  you  have  to  try  to  overtake  the  rest  of 
the  field  to  gain  a  clear  win.  You  must  not  bump  into  any  of  the  other  horses 
whiie  trying  to  overtake  them.  The  race  course  is  green  and  horses  are  black, 
with  your  horse  in  reversed  graphics  to  make  it  stand  out  from  the  rest.  The  up 
and  down  cursors  controi  your  mount 

10  *FX  4,1 

20  MODE  4 

30  VDU  19,0,2,0,0,0 

40  VDU  19,1,0,0,0,0 

50  VDU  23,224,&00,&00,&00,&FF,&FF,&00 

,&00,&00 

60  VDU  23,225,&04,&0C,&1A,&FF,&7D,&42 
,&81,&00 

70  VDU  23,226,&FB,&F3,&F5,&00,&82,&BD 
,&7E,&FF 

80  VDU  23,227,&F0,&F0,&F0,&F0,&0F,&0F 
,&0F,&0F 

90  DIM  A(5) 

100  P=7 

110  FOR  X=1  TO  30 

120  PRINT  TAB(X, 5) ;CHR$ (224) 

130  NEXT  X 

140  FOR  X=1  TO  5 

150  A(X)=RND(P) 

160  PRINT  TAB(A(X) ) ;CHR$ (225) ;TAB(30) ; 

CHR$(227) 

170  NEXT  X 

180  FOR  X=1  TO  30 

190  PRINT  TAB(X, 11) ;CHR$ (224) 

200  NEXT  X 

210  FOR  X=0  TO  30 

220  PRINT  TAB(X,P) ;CHR$ (226) 

230  FOR  Y=1  TO  5 

240  PRINT  TAB(A(Y) , Y+5) ; "  " 

250  A(Y)=A(Y)+RND(l)+.2 

260  IF  ?FNS(X,P,3)=&FF  THEN  GOTO  390 

270  IF  A(Y)>30  THEN  GOTO  410 

280  PRINT  TAB(A(Y) , Y+5) ;CHR$ (225) 

290  NEXT  Y 
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300  PRINT  TAB(X,P);"  " 

310  Q=INKEY(0) 

320  *FX  15,0 

330  IF  Q=&8A  THEN  P=P+1 

340  IF  Q=&8B  THEN  P=P-1 

350  IF  P<5  OR  P>11  THEN  GOTO  390 

360  NEXT  X 

370  PRINT  "YOU  WON" 

380  GOTO  420 

390  PRINT  "YOU  FELL" 

400  GOTO  420 

410  PRINT  "YOU  LOST" 

420  *FX  4,0 
430  VDU  20 
440  END 

450  DEF  FNS(X,Y,N)=HIMEM+(Y*40+X)*8+N 
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ALONG  THE  WIRE 


This  game,  based  on  a  program  by  Alastair  Gourlay,  is  a  test  of  skill  and 
dexterity.  The  object  of  the  game  is  to  travel  along  a  course  parallel  to  the  one 
drawn  on  the  screen,  keeping  above  the  wire  at  all  times. 


10  REM  WIRE 

20  VDU  23,224,&FF,&FF,&FF,&FF,&FF,&FF 
,&FF,&FF 

30  VDU  23,225,&18,&18,&18,&18,&18,&18 
,&18,&18 

40  VDU  23,227,&00,&00,&00,&00,&7E,&00 

,&00,&00 

50  MODE  4 

60  VDU  19,0,3,0,0,0 
70  VDU  19,1,0,0,0,0 
80  *FX  4,1 
90  *FX  12,1 
100  *FX  11,1 
110  Y=10 
120  CLS 

130  S$=STRING$(5,CHR$(227) ) 

140  PRINT  TAB(0,Y);S$ 

150  FOR  X=5  TO  25 

160  PRINT  TAB(X, Y) ;CHR$ (227) 

170  Y=Y+ (SGN(RND(1) - . 5 ) *INT ( RND ( 2 ) ) ) 
180  IF  Y<5  THEN  Y=5 
190  IF  Y>15  THEN  Y=15 
200  NEXT  X 

210  PRINT  TAB(X+1, Y) ;CHR$ (225) 

220  Y=9 
230  X=0 

240  PRINT  TAB(X, Y) ; " - " 

250  X=X+1 

260  IF  X>27  THEN  GOTO  390 
270  A=INKEY(0) 

280  *FX  15,0 
290  IF  A=&8A  THEN  Y=Y+1 
300  IF  A=&8B  THEN  Y=Y-1 
310  N=?FNS(X,Y,4) 

320  PRINT  TAB(X, Y) ;CHR$ (224) 

330  FOR  Z=1  TO  300;NEXT  Z 
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340  IF  N=&18  THEN  GOTO  380 
350  IF  NO&7E  THEN  GOTO  240 
360  PRINT  "YOU  HIT  THE  WIRE" 

370  GOTO  390 

380  PRINT  "YOU  MADE  IT" 

390  *FX  4,0 
400  *FX  12,0 
410  VDU  20 
420  END 

430  DEF  FNS(X,Y,N)=HIMEM+(Y*40+X)*8+N 
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SURROUND 


You  are  in  charge  of  a  star  ship  moving  on  a  seven  by  seven  grid.  You  must 
defend  your  ship  against  a  number  of  aiien  space  ships,  if  the  ships  box  you  in 
so  that  you  cannot  move,  they  win.  To  win,  you  must  capture  17  enemy  ships 
by  jumping  over  them  in  50  moves  or  iess.  You  can  move  up  and  down,  to  the 
ieft  and  to  the  right,  but  not  diagonaiiy.  You  jump  to  the  next  but  one  position  in 
the  direction  you've  chosen,  and  you  make  a  move  by  entering  the  number  of 
the  square  you  want  to  move  into  (entering  the  number  down  the  side  foiiowing 
by  the  number  across  as  a  singie  two-digit  number  such  as  23).  The  star  ship 
shape  is  defined  in  line  30  as  graphics  character  224,  and  the  enemy  ships  are 
defined  in  line  40  (character  225).  Any  attempt  to  cheat  is  detected,  and  the 
routine  from  300  to  370  does  this.  Line  350  notes  when  an  enemy  ship  is 
captured,  and  arranges  for  the  sounds  of  success  to  be  heard. 

10  REM  SURROUND 
20  MODE  4 

30  VDU  23,224,0,0,&0F,&0F,&18,&18,&FE 
,&FE,  0 

40  VDU  23,225,0,&3C,&7E,&7F,&66,&66,& 

66,0 

50  GOSUB  610 
60  GOSUB  100 
70  GOSUB  390 
80  GOSUB  100 
90  GOTO  70 

100  REM  -COMPUTER  MOVES - 
110  Y=0:P=P+1 
120  K=RND(63)+12 
130  Y=Y+1 

140  IF  H(K)<>120  THEN  120 
150  J=1 

160  IF  H(K+Z(J))=45  THEN  210 
170  J=J+1 

180  IF  J<3  THEN  GOTO  160 
190  IF  Y<100  THEN  120 

200  PRINT"  THE  ENTERPRISE  WINS!!  ":END 
210  H(K)=45:H(K+Z(J) )=120 
220  RETURN 

230  REM -ACCEPT  PLAYER  MOVE- 
240  PRINT 

250  REM  PLAYER  ENTERS  99  FOR  Q  IF  NO  M 
OVE 
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260  Q=QM 

270  IF  Q=99  THEN  770 

280  PRINT  TAB(2, 20) ; "ENTERPRISE  MOVES 
TO  " ; : INPUT  L 

290  REM  NOTE  MUGTRAPS 

300  IF  H(Q)<>84  OR  H(L)<>45  THEN  PRINT 
"ILLEGAL  MOVE" 

310  R=ABS(L-Q) 

320  IF  R=9  OR  R=ll  OR  R=18  OR  R=22  THE 
N  PRINT  "DIAGONAL  MOVES  ARE  ILLEGAL,  CAP 
TAIN !  " 

330  IF  H(Q)<>84  OR  H(L)<>45  OR  R=9  OR 
R=ll  OR  R=18  OR  R=22  THEN  250 
340  H(Q)=45:H(L)=84 

350  IF  R=20  OR  R=2  THEN  H ( (L+Q) /2 ) =45 : 
S=S+l:SOUND  1,-15,0,10 
360  QM=L 
370  RETURN 
380  REM- PRINT  BOARD - 
390  CLS 
400  PRINT 

410  PRINT: PRINT  TAB ( 8 ) ; " MOVE  NUMBER  "P 
420  IF  K=0  OR  K+Z(J)=10  OR  K=K+Z(J)  TH 
EN  440 

430  PRINT 

440  PRINT  50-P;"  MOVES  LEFT  "iPRINT 
450  PRINT  TAB(IO) ; "1234567" 

460  FOR  J=70  TO  10  STEP-10 
470  A=H(J+1) :B=H(J+2) :C=H(J+3) :D=H(J+4 
) :E=H(J+5) :F=H(J+6) :G=H(J+7) 

480  PRINT  J/10; 

490  PRINT  FNB(A) ;FNB(B) ;FNB(C) ;FNB(D) ; 
FNB(E) ;FNB(F) ;FNB(G) ;J/10 
500  NEXT  J 

510  PRINT  TAB(IO) ; "1234567" 

520  PRINT 

530  IF  P=50  THEN  760 

540  PRINT  "  ENEMY  TALLY 17  - S ; "  SHIPS 
TO  GO !  " 

550  IF  S=17  THEN  200 
560  GOSUB  230 
570  IF  K=0  THEN  590 
580  RETURN 

590  FOR  J=1  TO  1000:NEXT  J 
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600  RETURN 

610  REM- INITIALISE - 

620  CLS 

630  DIM  H(87) ,Z(5) :K=0:S=0:P=0 

640  FOR  J=1  TO  3:READ  Q : Z ( J ) =Q : NEXT  J 

650  DATA  10, 1,  -1 

660  J=1:L=100 

670  FOR  A=1  TO  87 

680  H(A)=46 

690  IF  A>72  AND  A<76  OR  A>62  AND  A<66 
OR  A>51  AND  A<57  OR  A>41  AND  A<47  THEN  H 
(A)=45 

700  IF  A=51  OR  A=41  OR  A=57  OR  A=47  TH 
EN  H(A)=120 

710  IF  A>30AND  A<38  OR  A>22  AND  A<26  0 
R  A>12  AND  A<16  THEN  H(A)=120 
720  NEXT  A 
730  H(44)=84 
740  QM=44 
750  RETURN 

760  PRINT"  TIME  IS  UP" 

770  PRINT"ENEMY  TALLY  IS  ";S 
780  PRINT 

790  INPUT"ANOTHER  GAME  (Y  OR  N)",W$ 

800  IF  W$="Y"  THEN  RN 
810  PRINT 

820  PRINT"! 'M  GLAD  YOU  KNOW  WHEN  YOU'R 
E  BEATEN, " 


830 

PRINT 

840 

PRINT, "ENTERPRISE! ! 

850 

STOP 

860 

DEF  FNB(A) 

870 

IF  A=84 

THEN 

A=224 

880 

IF  A=46 

THEN 

A=32 

890 

IF  A=45 

THEN 

A=46 

900 

IF  A=120 

THEN  A=225 

910 

=CHR$ (A) 
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WALL  STREET 


Try  to  make  your  fortune  on  the  stock  market  in  this  game,  based  on  one  by 
Alastair  Gouriay.  You  start  with  a  limited  amount  of  money,  with  which  to  set  up 
your  initiai  portfoiio  of  shares  in  four  companies.  Once  you  have  bought  your 
opening  group  of  shares,  you  can  then  start  trading  with  zest,  selling  shares  as 
you  choose,  and  re-investing  your  earnings  as  you  choose. 

There  are,  as  in  real  life,  grave  risks  on  this  path  towards  wealth.  Share  price 
rise  and  fail,  and  the  whole  market  can  suddenly  collapse.  If  you  can't  afford  to 
buy  anything  on  the  market,  you'll  be  declared  bankrupt  If  you  try  to  sell  shares 
you  don't  possess,  the  mighty  computer  will  terminate  your  career  on  Wall 
Street  with  the  message  FRAUD. 

To  make  a  transaction,  enter  the  number  of  the  company  you're  interested  in. 
Follow  this  by  a  positive  number  to  buy  shares,  and  a  negative  one  to  sell 
them.  If  you  don't  want  to  buy  or  sell  on  that  particular  turn,  just  press  RETURN 
instead.  Lines  100  to  130  set  up  the  initial  prices  of  the  shares  and  line  330 
determines  the  value  of  them  as  the  game  progresses.  Line  370  determines 
that  about  once  in  20  rounds  the  market  will  collapse. 

10  REM  WALLST 
20  CLS 
30  PRINT  ' ' 

40  PRINT  "STOCKMARKET" 

50  FOR  Z=1  TO  5000:NEXT  Z 
60  X=4 
70  1=10 
80  B=1000 
90  DIM  A(3,4) 

100  FOR  A=1  TO  X 

110  A(1,A)=INT( (A+RND(1) )*250) 

120  A(3,A)=0 
130  NEXT  A 
140  CLS 
150  PRINT  ' ' 

160  PRINT  "Co.  YOU  PRESENT  ORIGINAL 
PROFIT" 

170  PRINT  "No.  HOLD  PRICE  PRICE 
/LOSS" 

180  FOR  A=1  TO  X 
190  Z=A(1,A) -A(3,A) 
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200  PRINT  TAB(l) ;A;TAB(X+2) ;A(2,A) ;TAB 
(12) ;A(1,A) ; TAB (22) ;A(3,A) ; TAB (32) ;Z 
210  NEXT  A 
220  PRINT 

230  PRINT  "BANK  '";B;"  INTEREST  RATE:" 

;i 

240  PRINT 

250  INPUT  "WHICH  COMPANY  (1-4)", A 
260  INPUT  "HOW  MANY  SHARES  -  A  NEGATIV 
E  MEANS  SELL",C 

270  IF  OO  THEN  A(  3  ,  A)  =A(  1 ,  A) 

280  B=B-C*A(1,A) 

290  IF  B<=0  THEN  GOTO  410 
300  A(2,A)=A(2,A)+C 
310  IF  A(2,A)<0  THEN  GOTO  430 
320  FOR  A=1  TO  X 

330  A(1,A) =INT(ABS(A(1,A) +A*50* ( RND ( 1 ) 
-RND(l) ) ) ) 

340  NEXT  A 

350  I=INT(ABS(I+RND(1)*8-X) +1) 

360  B=INT(B*B*I/100) 

370  IF  RND(1)>.05  THEN  GOTO  140 
380  PRINT  "COLLAPSE" 

390  STOP 

400  P=A(2,1)+A(2,2)+A(2,3) -1000 
410  PRINT  "BANKRUPT" 

420  STOP 

430  PRINT  "FRAUD" 
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LE  MANS 


Successfully  complete  ten  sections  of  the  track,  and  you're  the  winner.  Your 
vehicie  moves  automaticaiiy  right  and  left  along  the  track,  and  you  must  steer 
your  way  through  the  parallel  course  using  the  up  and  down  cursor  keys. 

The  program  uses  black  and  yellow  (see  lines  50  and  60),  with  the  racing  car 
being  defined  in  line  40.  The  convincing  sound  of  the  crash  is  made  by  line 
360. 


10  REM  LEMANS 
20  MODE  4 

30  VDU  23,224,&FF,&FF,&FF,&FF,&FF,&FF 
,&FF,&FF 

40  VDU  23,225,&00,&C3,&C3,&3C,&3C,&C3 
,&C3,&00 

50  VDU  19,1,4,0,0,0 
60  VDU  19,0,3,0,0,0 
70  *FX  4,1 
80  *FX  12,1 
90  *FX  11,1 
100  N=10 

110  FOR  T=1  TO  N 
120  CLS 

130  PRINT: PRINT: PRINT 
140  PRINT  "SECTION  ";T 
150  Y=5 

160  FOR  X=0  TO  35 

170  PRINT  TAB(X, Y) ;CHR$ (224) ;TAB(X, Y+4 
) ;CHR$ (224) 

180  Y=Y+INT(RND(1)*3) -1 
190  IF  Y>N-1  THEN  Y=N-3 
200  NEXT  X 
210  Y=7 

220  FOR  X=1  TO  500:NEXT  X 
230  FOR  X=0  TO  35 
240  A=INKEY(0) 

250  *FX  15,0 

260  IF  A=&8A  THEN  Y=Y+1 

270  IF  A=&8B  THEN  Y=Y-1 

280  IF  ?FNS(X,Y,4)=&FF  THEN  GOTO  360 

290  PRINT  TAB(X, Y) ;CHR$ (225) 

300  FOR  Z=1  TO  500:NEXT  Z 
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310  PRINT  TAB(X,Y);"  " 

320  NEXT  X 
330  NEXT  T 

340  PRINT  "YOU  DID  IT" 

350  GOTO  380 

360  SOUND  0,-15,12,15 

370  PRINT  "YOU  CRASHED" 

380  *FX  4,0 
390  *FX  12,0 
400  VDU  20 
410  END 

420  DEF  FNS(X,Y,N)=HIMEM+(Y*40+X)*8+N 
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KNIGHTSBRIDGE 


Knightsbridge  is  a  game  played  on  a  seven  by  seven  board,  with  each  player 
having  seven  chess  knights  as  pieces  (which  explains  the  name).  The 
computer  throws  a  die  which  determines  which  piece  the  human  player  must 
move,  then  it  throws  a  die  for  itself  to  determine  which  piece  it  must  move.  All 
pieces  move  like  knights  in  chess  (and  you  are  not  allowed  to  cheat)  and  a 
piece  is  captured  by  the  opponent  landing  on  top  of  it.  The  first  player  to 
capture  five  of  the  opponent's  pieces  wins. 

You  move  the  indicated  piece  by  telling  the  computer  which  square  you  wish  to 
end  up  in.  The  board  is  labelled  one  to  seven  along  the  top  and  bottom,  and 
from  seven  to  one  down  the  sides,  as  you  can  see  from  the  sample  run.  You 
enter  the  number  along  the  side  (e.g.  6)  then  the  number  along  the  top  (e.g.  4) 
as  a  single  number  (i.e,  64)  to  move  your  piece  onto  square  number  64.  You 
will  be  swiftly  chastised  if  you  try  to  cheat.  You  can  concede  at  any  time  by 
entering  99  when  asked  for  your  move. 

The  program: 


10 

30 

40-90 

120-270 


290-480 


Title 

Sends  computer  to  the  initialisation  procedure. 

The  master  REPEAT  /UNTIL  loop 

This  is  the  procedure  which  selects  a  for  the  player,  checks  if 
the  indicated  move  is  legal,  and  if  so,  makes  the  move.  The 
'loop'  from  130  to  160  picks  squares  on  the  board  at  random 
(and  will  make  500  such  choices  before  giving  up)  and  when 
one  of  your  pieces  is  found,  the  computer  prints  out  (line  1 90) 
which  piece  must  be  moved.  You  enter  your  move  in  line  200 
(INPUT  N),  and  can  abort  the  game  at  any  time  by  entering  99. 
The  'loop'  from  210  to  230  checks  all  the  legal  available  moves 
from  the  piece  you  have  been  told  to  move,  and  If  your  move  is 
not  legal,  action  goes  to  'PROCraspberry'  where  you  are  firmly 
told  that.  In  this  universe,  cheating  will  not  be  tolerated.  If  you 
capture  a  piece  belonging  to  the  computer  (line  250)  your 
score  (HU)  is  incremented  by  one,  and  a  lovely  twiddly  bit  of 
music  (produced  by  PROCjoy)  shares  your  elation. 

This  procedure  governs  the  computer's  move.  Lines  300  to 
330  select  the  piece  which  must  be  moved,  and  line  400 
(within  the  'loop'  300  to  41  0)  tries  to  find  a  move  which  result 
in  a  capture.  If  It  does  so,  it  gets  to  play  Its  own  happy  song 
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500-550 

570-730 

750-810 


830-1010 


1030-1090 


(PROCviclory).  The  next  section  of  the  procedure  finds  a  non¬ 
capture  move,  and  -  whether  it  is  a  capture  or  not  -  makes  the 
move  in  lines  460  and  470. 

This  'victory  procedure',  visited  whenever  the  computer 
captures  one  of  your  pieces,  adds  one  to  its  score  (CO,  in  iine 
51 0)  and  plays  a  little  victory  tune  (520  to  540). 

This  procedure  prints  out  the  board,  selecting  specific  coiours 
(which  you  can  easily  modify)  for  each  player's  pieces. 

This  procedure  covers  the  four  possibie  ends  to  the  game: 

-  The  player  beats  the  computer  (line  760)  by  capturing  five 
computer  pieces 

-  The  computer  beats  the  human  piayer  (line  770)  by  capturing 
five  human  pieces 

-  The  player  concedes  (by  entering  99  in  line  200) 

-  The  computer  concedes  (because  it  could  not  find  a  piece  to 
move,  in  500  random  stabs,  in  iine  330) 

This  procedure  initialises  the  variabies,  turning  off  the  cursor 
(860)  and  setting  CO  and  HU  to  zero  to  hold  the  computer  and 
human  scores  (line  870).  Lines  880  to  950  assign  values  to  the 
elements  of  the  H  array,  which  hoids  the  board.  Lines  960  to 
990  read  the  values  the  computer  will  need  to  judge  the  legal 
move  squares  from  any  designated  position  on  the  board. 
Blows  a  raspberry  at  you  if  you  attempt  to  make  an  illegal 


move. 

1110-1130  Prints  out  the  scores 

1150-1190  Plays  the  'joy'ful  music  if  the  player  captures  a  computer  piece. 


Suggestions  for  improvement: 


-  Change  the  colours  and/or  shapes  for  the  two  pieces 

-  Remove  the  delay  loops  for  a  vastly  quicker  game 

-  Get  the  computer  to  cheat  occasionally  by  throwing  itself  good  dice. 

10  REM  **Knightsbridge** 

20  REM  (C)  Hartnell  1982 
30  PROCinitialise 
40  REPEAT 

50  PROCprint_board 

55  IP  HU=5  OR  CO=5  THEN  PROCend_of_g 

ame 

60  PROCcomputer_moves 
70  PROCprint_board 

75  IF  HU=5  OR  CO=5  THEN  PROCend_of_g 

ame 

80  PROCplayer_moves 
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90  UNTIL  FALSE 
100  END 

110  REM**************** 

120  DEP  PROCplayer_moves 
130  Q=0 

140  M=RND(66)+10 

150  Q=Q+1 

160  IP  Q=500  PROCend_of_game 
170  IPH(M)<>72  THEN  140 
180  WAIT=TIME: REPEAT  UNTIL  TIME-WAIT=3 
50 

190  PRINTCHR$(134) ; "You  must  move  the 
piece  on"; CHR$( 131) ;M;"  " 

200  INPUTN:P=0:IFN=99  Q=500 : PR0Cend_O 
f_game 
210  CT=1 

220  IF  M+Z(CT)=N  P=1 

230  IF  CT<8  CT=CT+l:GOTO220 

240  IF  P=0  PROCraspberry:GOTO200 

250  IFH(N)=67  HU=HU+1 : PROG joy 

260  H(M)=255:H(N)=72 

270  ENDPROC 

280  REM**************** 

290  DEF  PROCcomputer_moves 
300  Q1=0 
310  Q1=Q1+1 
320  K=RND(66)+10 
330  IFQ1=500  THEN  570 
340  IFH(K)<>67  THEN  310 
350  T=TIME: REPEAT  UNTIL  TIME-T=600 
360  PRINTCHR$(133) ; "I  have  to  move  th 
e  piece  on  " ;CHR$ ( 129 ) ;K; "  " 

370  T=TIME: REPEAT  UNTIL  TIME-T=150 
380  W=1 

390  IFK+Z(W)<11  OR  K+Z(W)>77  THEN  410 
400  IFH(K+Z(W) )=72  PROCvictory : G0T046 

0 

410  IPW<8  W=W+l:GOTO390 
420  W=1 

430  IP(K+Z(W)<11  OR  K+Z(W)>77)  AND  W<8 
W=W+l:GOTO430 

440  IPH(K+Z (W) ) 0255  AND  W<8  W=W+l:GOT 
0440 

450  IPW=8  AND  H(K+Z  (W)  )  0255  THEN  Ql  =  5 
00 : PROCend_of_game 
460  X=K:Y=K+Z(W) 

470  H(X)=255:H(Y)=67 

480  ENDPROC 

490  REM********** 

500  DEP  PROCvictory 
510  CO=CO+l 

520  FOR  Y=1  TO  RND(20)+10 
530  SOUND3, -15,RND(250) ,4 
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540  NEXT  Y 

550  ENDPROC 

560  REM************* 

570  DEP  PROCprint_board 
580  PRINTCHR$(30) ' ' 

590  PROCscore 

600  PRINTTAB(8) ; "1  234567" 

610  PRINTTAB(7) ;CHR$(133) ; " . 

...  II 

620  FORM=70  TO  10  STEP -10 

630  PRINT  TAB(5) ;CHR$(135) ;M/10; 

640  FORN=l  TO  7 

650  IF  H(M+N)=255  PRINT  CHR$ ( 130 ) ; CHR$ 
(255); 

660  IF  H(M+N)=67  PRINT  CHR$ ( 129 ) ; " * " ; 
670  IF  H(M+N)=72  PRINT  CHR$ ( 131 ) ; " % " ; 
680  NEXT  N 

690  PRINT  CHR$(135) ;M/10' 

700  NEXTM 

710  PRINTTAB(7) ;CHR$(133)  ;  " . 

...  II 

720  PRINTTAB(8) ; "1  234567" 

730  ENDPROC 

740  REM***************** 

750  DEFPROCend_of_game 

760  IFHU=5  THEN  PRINT"You  have  beaten 
me  " 

770  IFCO=5  THEN  PRINT"This  victory  is 
the  first  step  in  our" ' "plan  to  take  ov 
er  the  world!" 

780  IFQ=500  THEN  PRINT"!  accept  your  w 
ish  to  concede" 

790  IFQ1=500  THEN  PRINT"!  concede  the 

game  to  a  Master" 

800  END 

810  ENDPROC 

820  REM************* 

830  DEF  PROCinitialise 
840  X=0:Q1=0:Q=0 
850  CLS 

860  VDU23;8202;0;0;0; 

870  HU=0:CO=0:REM  SCORES 
880  DIMH(99) ,Z(8) 

890  P0RA=1T099 


900 

IPA>77 

OR 

A=70 

OR 

A=60 

OR 

A=68 

OR 

A=69 

OR  A=50 

OR 

A=59 

OR 

A=58 

OR 

A=40 

OR 

A=49 

OR  A=48 

THEN  950 

910 

IPA=30 

OR 

A=38 

OR 

A=39 

OR 

A=20 

OR 

A=28 

OR  A=29 

OR 

A=18 

OR 

A=19 

OR 

A<11 

THE 

N  950 

920  H(A)=255 

930  IPA>70  AND  A<78  H(A) =67 :REM"C" 
940  IPA>10  AND  A<18  H(A) =72 :REM"H" 
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950  NEXTA 
960  P0RA=1T08 
970  READB 
980  Z(A)=B 
990  NEXTA 

1000  DATA- 8, -21,-12,-19,19,12,21,8 

1010  ENDPROC 

1020  REM************** 

1030  DEE  PROCraspberry 

1040  REM  If  player  attempts  illegal  mov 
e 

1050  PRINTCHR$(11) ;CHR$(11) ;CHR$(129) 
No,  no,  no!  " 

1060  PORnoise=l  TO  RND(24) 

1070  SOUND  1, -15, 100- 4*noise,l 
1080  NEXT  noise 
1090  ENDPROC 
1100  REM************** 

1110  DEP  PROCscore 

1120  PRINTCHR$(130);"  My  score  is  ";CO 
;CHR$(131) ; "  Yours  is  " ; HU 
1130  ENDPROC 
1140  REM************** 

1150  DEP  PROCjoy 

1160  POR  jo=255TO  200  STEP  -1 

1170  SOUND3, -15, jo, 3 

1180  NEXTjo 

1190  ENDPROC 


My score is 0 Yours is 0 I  My  score  is  0  Yours  is  0 


1234567  1234567 

7  7  7  1  7 

6IIIIIII6  611  ■■■■6 

5IIIIIII5  5IIIIIII5 

4IIIIIII4  4IIIIIII4 

. . 3IIIIIII3 

2IIIIIII2  2IIIIIII2 

1  y.  y,  y,  y.  y,  y.  y.  I  i  y  y.  y.  y.  y.  y.  y.  i 

1234567  1234567 


I  have  to  move  the  piece  on _ |^You  must  move  ihe  piece  on  15 
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DEATHMAZE 


Speed  is  the  essence  of  this  game  in  which  you  try  to  get  across  the  maze 
without  crossing  the  iines.  The  maze  is  black  on  white  with  a  shimmering 
border,  and  you  are  the  man  figure.  You  move  the  man  with  the  arrow  keys, 
trying  to  get  to  the  fight  hand  side  in  the  shortest  possible  time,  without 
crossing  lines.  Note  that  once  you  start  moving  in  any  direction,  you'll  keep 
moving  that  way  until  you  change  direction. 

The  score  is  decreasing  all  the  time,  but  it  is  only  updated  on  the  screen  when 
you  go  into  a  black  area.  If  you  hit  any  border  except  the  right  hand  one  the 
game  will  end.  At  the  end  of  the  game,  your  score  for  that  turn  is  displayed. 
There  is  a  highest  score  feature. 

The  man  is  defined  as  character  227,  using  the  hex  code  in  line  60.  The 
shimmering  effect  is  achieved  by  alternating  hex  codes  AA  and  55  in  the 
definition  of  character  225  in  line  50. 


10  REM  DEATHMAZE 
20  MODE  4 
30  *FX  4,1 

40  VDU  23, 224,&FF,&FF,&FF,&FF,&FF,&FF 
,&FF,&FF 

50  VDU  23, 225,&AA,&55,&AA,&55,&AA,&55 
,&AA,&55 

60  VDU  23, 226,&18,&18,&7E,&18,&3C,&66 

,&66,&00 

70  VDU  23, 227,&E7,&E7,&81,&E7,&34,&C3 
4,&99,&99,&FF 
80  U=0:VT=-1 
90  FOR  B=2  TO  28  STEP  2 
100  FOR  A=0  TO  19 
110  PRINT  TAB(B,A) ;CHR$(224) 

120  NEXT  A 

130  FOR  C=1  TO  2 

140  Q=RND(14)+3 

150  PRINT  TAB(B,Q);"  " 

160  NEXT  C 
170  NEXT  B 
180  FOR  A=0  TO  30 

190  PRINT  TAB(A,0);CHR$(225);TAB(A,19) 
;CHR$(225) 

200  NEXT  A 

210  FOR  B=1  TO  18 

220  PRINT  TAB(0,B) ;CHR$(225) ;TAB(30,B) 
;CHR$(225) 
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230  NEXT  B 
240  A=10 
250  B=1 
260  Z=20000 
270  Y=10 
280  X=1 

290  V=INKEY(25) 

300  IP  V=-l  THEN  V=VT 

310  *PX  15,0 

320  Z=Z-50 

330  Y=A 

340  X=B 

350  IF  V=&89  THEN  B=B+1 
360  IF  V=&8A  THEN  A=A+1 
370  IF  V=&8B  THEN  A=A-1 
375  VT=V 

380  IF  ?FNS(B,A,0)=&FF  THEN  GOSUB  550 
390  PRINT  TAB(X,Y);"  " 

400  PRINT  TAB(B,A) ;CHR$(226) 

410  IF  A>18  OR  A<2  OR  B<1  THEN  Z=INT(Z 
/3) 

420  IF  A>18  OR  A<2  OR  B<1  OR  B>29  THEN 
GOTO  440 
430  GOTO  290 

440  PRINT  TAB (0,20); "END  OF  ROUND  SCOR 
E  ";Z 

450  IF  Z>U  THEN  U=Z 

460  PRINTTAB ( 3, 21 ) ; "Best  score  so  far 
is  ";U 

470  FOR  C=1  TO  10000 :NEXT  C 
480  CLS 

500  PRINTTAB (3, 10) ; "Do  you  want  anothe 
r  game  ( Y  or  N ) ? " 

505  A$=GET$ 

510  A$=LEFT$ (A$, 1) 

520  IF  A$="Y"  THEN  GOTO  10 
530  *PX  4,0 

540  PRINT' '"OK,  thanks  for  playing" :EN 
D 

550  PRINT  TAB(B,A) ;CHR$(225) 

560  Z=Z-673 

570  PRINT  TAB (0,20) /"SCORE  ";Z 
580  RETURN 

590  DEP  FNS(X,Y,N)=HIMEM+(Y*40+X)*8+N 
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GRAPHICS  GALORE 


The  final  five  programs  in  this  book  are  not  games.  Instead,  they  are  programs 
which  show  off  splendidly  the  graphics  capability  of  the  BBC  Micro,  and  are 
ideal  for  arousing  envy  from  those  who  own  'lesser'  computers.  Note  that  you 
can  get  a  number,  with  nothing  following,  into  a  listing  to  make  it  easier  to  read 
(as  in  lines  30  and  60  of  LASER  LIGHT  DISPLAY)  by  entering  a  space  after 
the  line  number  before  pressing  RETURN. 
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LISSAJOUS  FIGURES 


10  REM  Lissajous  figures 
80  REPEAT 
90  MODE  0 

100  VDU  29,640;512; 

110  A=RND(100)/10 
120  B=RND(100)/10 
130  C=RND(100)/10 
140  D=RND(100)/10 
150  T=0 
160  REPEAT 

170  A%=SIN(RAD(T*A) ) *600 : B%=COS ( RAD ( T* 
B) )*500 

180  C%=SIN(RAD(T*C) ) *600 :D%=COS (RAD(T* 
D) )*500 

190  MOVE  A%,B%:DRAW  C%,D% 

200  MOVE  -A%,B%:DRAW  -C%,D% 

210  T=T+0.5 

220  UNTIL  INKEY(-l) 

230  UNTIL  FALSE 
240 

250  Press  shift  to 
260  start  a  new  pattern 
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LASER  LIGHT  DISPLAY 


10  REM  LASER  LIGHT  DISPLAY 
20  REM  BY  JEREMY  RUSTON 
30 

40  REM  PRESS  'SHIFT'  FOR 
50  REM  A  NEW  DISPLAY 
60 

70  REPEAT 
80  MODE  0 

90  VDU  29,640;512; 

100  A=RND(100)/10 
110  B=RND(100)/10 
120  C=RND(100)/10 
130  D=RND(100)/10 
140  T=0 
150  REPEAT 

160  A%=SIN(RAD(T*A) ) *600 : B%=COS { RAD ( T* 
B) )*500 

170  C%=SIN(RAD(T*C) ) *600 : B%=COS ( RAD ( T* 
D) )*500 

180  MOVE  A%,B%:DRAW  C%,D% 

190  MOVE  -A%,B%:DRAW  -C%,D% 

200  T=T+0.5 

210  UNTIL  INKEY(-l) 

220  UNTIL  FALSE 
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STAR  MAP 


10  REM  STAR  MAP 

20  VDU  23,224,&FF,&FF,&FF,&FF,&FF,&FF 
,&FF,&FF 

30  MODE  4 

40  VDU  19,0,4,0,0,0 
50  PRINT 

60  PRINT  TAB(10);"N  I  G  H  T  SKY" 

70  FOR  A=5  TO  30 

80  PRINT  TAB(A, 5) ;CHR$ (224) 

90  PRINT  TAB(5,A) ;CHR$ (224) ;TAB(30,A) 
;CHR$ (224) 

100  PRINT  TAB(A, 30) ;CHR$ (224) 

110  NEXT  A 
120  Y=RND(23)+6 
130  X=RND(23)+6 
140  PRINT  TAB(X, Y) ; 

150  SOUND  1, -10,RND(100) +100, 10 

160  FOR  V=1  TO  500: NEXT  V 

170  FOR  1=1  TO  3 

180  X=RND(23)+6 

190  Y=RND(23)+6 

200  PRINT  TAB(X,Y);"  " 

210  NEXT  I 
220  GOTO  120 
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3-D  BOWLER  HAT 


10  REM  Three  dimensional  bowler  hat 
20  REM  By  Jeremy  Ruston 
30 

40  MODE  0 

50  DEE  PNA(X%,Y%)=SIN(RAD( (X%*X%+Y%*Y 
%)/54) )*50+30 

60  PROCVIEW(100,200,150) 

70  FOR  X%=-100  TO  100  STEP  5 
80  FOR  Y%=-100  TO  100  STEP  5 
90  A%=(X%+100)  DIV  5 
100  B%=(Y%+100)  DIV  5 

110  IF  (A%+B%)  MOD  2=1  THEN  GCOL  0,1  E 
LSE  GCOL  0,0 

120  PROCPLOT3(4,X%,Y%,FNA(X%,Y%) ) 

130  PR0CPL0T3(4,X%+5,Y%,FNA(X%+5,Y%) ) 
140  PROCPLOT3(85,X%,Y%+5,FNA(X%,Y%+5) ) 
150  PROCPLOT3 (85,X%+5, Y%+5,FNA(X%+5, Y% 
+  5)) 

160  NEXT  Y% 

170  NEXT  X% 

180  END 

190  DEF  PROCVIEW(A%,B%,C%) 

200  S%=A%*A%+B%*B% 

210  T%=S%+C%*C% 

220  Q%=SQR(T%) 

230  R%=SQR(S%) 

240  L%=A% :M%=B% :N%=C% 

250  ENDPROC 

260  DEF  PROCPLOT3(K%,U%,V%,W%) 

270  LOCAL  0% 

280  0%=T%-U%*L%-V%*M%-W%*N% 

290  C%=T%* (V%*L%-U%*M%)*4/(R%*0%) +640 
300  D%=384+3*Q%*(W%*S%-N%*(U%*L%+V%*M% 
) )/(R%*0%) 

310  PLOT  K%,C%,D% 

320  ENDPROC 
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D.N.A 


10  REM  D.N.A. 

40  MODE  4 

50  VDU  23;8202;0;0;0; 

60  VDU  19, 0,7; 0; 19, 1,0; 0; 

70  DIM  X%(80) ,Y%(80) 

80  REPEAT 
90  CLS 

100  VDU  29,640;824; 

110  REPEAT 
120  R%=RND(60)+20 
130  UNTIL  R%  MOD  2=1 
140  FOR  T%=0  TO  R% 

150  X%(T%)=SIN(RAD(360*(T%/R%) ) )*200 
160  Y%(T%)=COS(RAD(360*(T%/R%) ) )*200 
170  NEXT  T% 

180  L%=0 
190  M%=10 
200  REPEAT 
210  TIME=0 

220  MOVE  X%(L%) ,Y%(L%) 

230  L%=(L%+1)  MOD  R% 

240  PLOT  0, 0, -32 

250  DRAW  X%(L%) ,Y%(L%) 

260  MOVE  X%(M%) ,Y%(M%) 

270  M%=(M%+1)  MOD  R% 

280  PLOT  0, 0, -32 
290  DRAW  X%(M%) ,Y%(M%) 

300  DRAW  X%(L%) ,Y%(L%) 

310  VDU  11 

320  REPEAT  UNTIL  TIME>1 
330  UNTIL  INKEY(-99) 

340  UNTIL  FALSE 
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